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Action Biker 

Colony 
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Mr. Robot 19.90 / 29.90 
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Spy vs Spy E 
Tale of Beta Lyrae 
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Juno First 

Max Weü's Demon 

Mike's Slotmach ine 

NibbEer 

Pyramidos 

Tales of Dragons 

Soundmachine 

Arkanoid 

Space LobSters 

Sprong 

Starquake 

Gauntlet 


19.90 / — 
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—.— / 19.90 
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Rescue on Fractalus 
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Tomahawk 
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Spindizzy 

Grid Runner 

Stratosphere 

Colossum Chess 4.0 
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Invasion 
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Footbai Eer of the Year 
Mutant Camels 
Frenesis 
River Railey 
Bubble Trouble 
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9.90 / — 

25.90 / — 
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9.90 / 
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14.90 / —.— 
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Pooyan, Sea Bandits, 

Spider Quake 
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Flip + Flop 
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★ 4 great Games 
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Pengon ■ Wizard 
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Ich bestelle aus dem Diabolo-Versand folgende Software: 


USA No 352-42—CLN 
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Coupon ausschneiden, auf Postkarte kleben 
und einsendenan: 

Diabolo-Versand, PF 1640,7518 Bretten. 

Sne Abteilung des Verlags Ptötl-Eberte GdbR. 


Ich wünsche folgende Bezahlung: 

□ Nachnahme (zuzügUcb S. 70 DM Wcsandkosten) 

□ Vorauskasse fzuzügUtcn ä- Dm vartandkosten. 
ab 100 DM Bestellwert vorsandköstefifrei) 

Bei Vbrairekassö bitte Scheck beilegen. 


































































S ie waren sich alle einig, die Soft¬ 
warehäuser, die Hardwareher¬ 
steller und Entwickler, die Händ¬ 
ler, die Fachjournalisten und sogar 
Atari selbst: »Der Atari XL/XE ist tot«. 
Schließlich war (und ist) der C64 der 
bislang erfolgreichste Heimcomputer 
aller Zeiten. Für Atari schien die ein¬ 
zige Zukunft nach den Wirren der 
Übernahme durch Jack Tramiel in der 
neuen ST-Linie zu liegen. 

Nur noch einige eingefleischte 
Freaks und ausdauernde User-Clubs 
hielten ihrem XL/XE die Stange. Die 
immer kleiner werdende Gemeinde 
bombadierte unsere Redaktion mit 
Leserbriefen: »Bringt doch mehr über 
den Atari XL«. Keine leichte Aufgabe 
für uns. Wir bemühten uns dennoch, 
die Wünsche unserer Leserschaft zu 
erfüllen. Aus der Listingflut der ersten 
Jahre war allerdings leider ein immer 
dünneres Rinnsal geworden. Die Pro¬ 
duktion des XL/XE wurde eingestellt, 
die Händler verkauften ihre Restpo¬ 
sten nur noch mühsam. Die Preise fie¬ 
len. Alles schien klar: Der Atari XL ist 
tot. 

Und plötzlich beginnen die Ver¬ 
kaufezahlen zu steigen. Auf der CeBit 
’87 kann Alwin Stumpf, deutscher 
Atari-Chef, stolz 92000 verkaufte XL 
vermelden. Der Erfolg überraschte 
Atari derart, daß geplant ist, den 800 
XL im Gehäuse eines 130 XE neu auf¬ 
zulegen. Weiterhin werden von Atari 
Anstrengungen in Richtung Software 
unternommen. .In diesem Jahr wird 
eine große Werbekampagne für die 
»kleinen Ataris« erwartet, ein XL-Com- 
puter als Spielconsole kommt zu 
Weihnachten. Der Atari XL lebt! 

Im großen Atari-Schwerpunkt in 
Ausgabe 7/87 von Happy-Computer 
konnten es die Freaks aus dem berufe¬ 
nen Munde Alwin Stumpfe hören, daß 
sie an dieser Entwicklung nicht unbe¬ 
teiligt waren: »Wenn es nicht die 
Clique der Atarianer gegeben hätte, 
die ihren Computer leidenschaftlich 
vor aller Welt verteidigten, wären die 


Totgesagte 
leben länger 

kleinen Computer niemals wieder so 
populär geworden.« 

Bereits das erste XL/XE-Sonderheft 
von Happy-Computer war ein durch¬ 
schlagender Erfolg. Das »Turbo- 
Basic« des späteren GFA-Basic-Pro- 
grammierers Frank Ostrowski (Listing 
des Monats in Happy-Computer) ist 
heute Quasi-Standard aller Listings für 
die 8-Bit-Ataris. Sogar jenseits des 
Atlantik. Werregelmäßig amerikanische 
Atari-Zeitschriften liest, wird dort immer 
wieder Programme finden, die in Turbo- 
Basic geschrieben worden sind. 

Mit diesem Sonderheft wollen wir 
dieser Entwicklung noch mehr Durch¬ 
schlagskraft verleihen. Unter dem 
Motto »Professionell programmieren« 
ist dieses Sonderheft ein Nachschla¬ 
gewerk für alle, die auch noch das 
Letzte aus ihrem Atari XL herausholen 
wollen. Wenn Sie die ausführlichste 
Übersicht über alle XL-Hardware- 
Register suchen, die je in einer 
deutschsprachigen Zeitschrift er¬ 
schienen ist, wenn Sie Grundlagen 
zur Grafikprogrammierung brauchen, 
eine Kassettenversion von Turbo- 
Basic vermissen oder 256 Farben 
gleichzeitig darstellen wollen: Sie fin¬ 
den es hier. 

Für die Anwender unter Ihnen lie¬ 
fern wir unter anderem ein Zeichen¬ 
programm, einige Super-Spiele zum 
Abtippen und einen Zeichensatzgene¬ 
rator. 

Wenn Sie übrigens ein Spiel oder 
eine Anwendung programmiert 
haben, schicken Sie sie uns. Jeden 
Monat warten in Happy-Computer 
3000 Mark auf den Programmierer 
des »Listings des Monats«. 

(Henrik Fisch) 
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Von jeher wurde der Atari alsSpielemaschine eingesetzt. Die¬ 
ses Talent und seinen Ruf als Spielemaschine hat er sich bis 
heute bewahrt. Vier neue Spiele für die XUXE-Computer 
erwarten Sie ab Seite 6 
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ultimatives Programm-Entwicklungswerkzeug dient der 
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Mit unserem in Turbo-Basicgeschriebenen Zeilen-Assembler 
lassen sich ohne Probleme kleine Programme schreiben und 
austesfen. Ideal ist er für die Demonstrattonsprogramme die¬ 
ser Ausgabe. 83 



Selbstverständlich haben wir wieder Spiele für jeden Ge¬ 
schmack in diesem Heft abgedruckt. Ob Sie nun lieber Action¬ 
oder Denkspiele mögen, hier finden Sie hochkarätige Spiele 
zum Abtippen. 90 



Diese Ausgabe ist als handfestes Nachschlagewerk für die 
Grafik-Programmierung gedacht. Display-Lists, Zeichen¬ 
sätze und verschiedene Interrupts sind keine Rätsel mehr. 
Zusätzlich erhalten Sie die Registerdokumentation. 120 
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Spindizzy 


W eit entfernt, in einer frem¬ 
den Dimension haben Wis¬ 
senschaftler eine bizarre 
Welt entdeckt, die frei im Raum 
schwebt. Niemand kann sich erklären, 
woher sie kommt und wozu sie da ist. 
Fest steht jedoch, daB sie aus lauter 
geometrischen Formen besteht. Um 
diese Welt zu erkunden, wird sofort 
nach einem waghalsigen Mitarbeiter 
gesucht, der den Flug zu dieser 
Dimension und eventuell auftretende 
Gefahren nicht scheut. Da Sie mal 
wieder knapp bei Kasse sind, melden 
Sie sich für den Auftrag. 

Sie werden entsprechend ausgerü¬ 
stet und zum Abflughangar gebracht, 
wo Ihr Raumschiff auf Sie wartet. Als 
Sie es erblicken, trifft Sie fast der 
Schlag. Das Raumschiff ist von so 
alter Bauart, daß Sie glauben, es 
müsse jeden Moment auseinanderfal¬ 
len. Es sieht wie eine auf den Kopf 
gestellte Pyramide aus und besitzt 
zudem es ein völlig überholtes 
Antriebssystem. Dieses läßt das 
Raumschiff ständig um die eigene 
Achse rotieren, um so den nötigen 
Schub für eine Vorwärtsbewegung zu 


Eine neue, gut gelungene Um¬ 
setzung macht seit kurzer Zeit 
von sich reden: Spindizzy. Das 
Spiel wurde vom Schneider 
CPC so gut umgesetzt, daß 
jedem XL/XE-Freak das Herz 
höher schlagen dürfte. 

Treibstoffvorrat erhöht hat. Insgesamt 
können Sie auf diese Weise Treibstoff 
für 150 Sekunden in Ihrem Fahrzeug 
lagern. Als Sie sich dem Diamanten 
nähern, stellen Sie eine weitere Un¬ 
zulänglichkeit Ihres Gefährts fest: Die 
Bremsen funktionieren nicht. Um zu 
bremsen, müssen Sie also entweder 
genau entgegengesetztzu Ihrer Fahrt¬ 
richtung Schub geben oder Sie benut¬ 
zen die Notbremse (die <SPACE>- 
Tasteam Computer). Mit dieser kommt 
Ihr Fahrzeug augenblicklich zum Still¬ 
stand. Dafür verbraucht diese jedoch 
bei jeder Betätigung den Treäbstoffvor- 
rat einer Sekunde, und Treibstoff ist 
kostbar. Ohne ihn bleibt Ihr Fahrzeug 
stehen, und Sie sind mutterseelen¬ 
allein auf der Ebene gefangen, ohne 
je wieder zurückzukehren. 


Bizarr geformte Klippen wechseln mit 
unebenem Gelände, endlosen Ab¬ 
gründen und Eiswüsten ab. Dann gibt 
es wieder Gebiete, die an eine Achter¬ 
bahn erinnern oder die befürchten las¬ 
sen, in einem Labyrinth ohne Ausgang 
gefangen zu sein. 

Interessant sind auch die verschie¬ 
denen Fahrstühle, mit denen Sie in 
andere Ebenen getragen werden. 
Einige dieser Fahrstühle lassen sich 
nur mit in den Boden eingelassenen 
Schaltern aktivieren, bei manchen 
sind gleich mehrere dieser Schalter 
notwendig. Schließlich entdecken 
Sie auch, daß Sie nicht allein in die 
ser Welt sind. Unbekannte Wesen 
huschen in bestimmten Gegenden 
umher. Schnell merken Sie jedoch, 
daß diese Wesen es einzig und allein 
auf Ihren Treibstoffvorrat abgesehen 
haben. Mit der Zeit fangen Sie an, sich 
Gedanken über den Sinn dieser Welt 
zu machen. Wer hat sie geschaffen 
und welchen Zweck soll sie erfüllen? 
Wer weiß, vielleicht lüften Sie das 
Geheimnis. 

Spindizzy wurde zuerst für den 
Schneider CPC geschrieben, dann 
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Steile Klippen machen die Erkundung schwierig 


Wie kommt man an den Diamanten ran? 

erzeugen (wer sich das wohl wieder 
ausgedacht hat). Widerwillig steigen 
Sie in das Fahrzeug und fliegen los. 

Als Sie bei der Ebene ankommen, 
zeigt sich Ihnen ein fantastisches Bild. 
Wie die Wissenschaftler geschildert 
haben, besteht alles aus geometri¬ 
schen Formen. Die quadratische Flä¬ 
che, auf der Sie sich befinden, hat 
nach allen Seiten Ausgänge und in der 
Luft schweben schimmernde Diaman¬ 
ten. Ais Sie einen der Diamanten 
berühren, gibt es einen klirrenden 
Laut, und der Diamant ist verschwun¬ 
den. Dafür sehen Sie aber, daß sich Ihr 


Diese Gedanken schieben Sie 
jedoch entschlossen beiseite und 
machen sich auf den Weg. Leicht tor¬ 
kelnd und schwankend fahren Sie eine 
Rinne entlang und finden sich kurz 
darauf auf einem Gelände wieder, das 
zum großen Teil mit Wasser überflutet 
ist. Ein schmaler Weg führt durch die 
Fluten zum Festland. Gerade rechtzei¬ 
tig können Sie noch die Notbremse 
ziehen, um nicht im Wasser zu versin¬ 
ken. Wie nicht anders zu erwarten, 
kann Ihr Fahrzeug natürlich auch nicht 
schwimmen. Weiter führt Sie die 
Reise durch die fremde Landschaft. 


auf den C64 konvertiert und ist nun 
auch in einer Version für die Atari-8- 
Bit-Computer erhältlich. Wenn auch 
die Grafik keine so detaillierte Darstel¬ 
lung wie auf dem CPC erlaubt, so ist 
Spindizzy doch eine rundherum ge¬ 
lungene Umsetzung. Einen großen 
Vorteil hat jedoch die etwa halb so 
feine Auflösung der XL/XE-Computer: 
Die Bildschirme werden wesentlich 
schneller aufgebaut und die einzelnen 
Objekte bewegen sich fließender. 
Spindizzy ist seine 29,90 Mark auf 
Kassette beziehungsweise 39,90 Mark 
auf Diskette vollkommen wert. (hf) 
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O. Hartwig 
Atari ST für Insider 
1987, 299 Seiten, inkLDiskette 
Systemprogrammierung unter 7ÜS und GEM: Grafik- 
rautinen in C, Quick-Reference-Gukle mit BIOS*, XBIOS- 
und GEM-DOS-Funkfionen, Systemadressen und Speicher¬ 
belegung, Tips und Tricks. 

Bester. 90423 

ISBN 3-89Q&H23-8 

DM 49,-/sFr 45,10/öS 382,20 


P. Rösenbeck 

C-Programmierong unter TÖS/Atari ST 
1986, 876 Seiten 

Einführung in »C«. Systemprogrammierung am Beispiel eines Dis¬ 
kettenmonitors, Eirvsaiz von BlQ$-fioutinen r Software-Engineering. 
Best.-Nr. 90226 
ISBN 3-89090-226-X 
OM 52,-/sFr 47,80/öS 405,60 


J.Muus/W. Besenthal 

Atari $T Program mierpraxis GFA-BASIC 2.0 
1937. 344 Seiten, inkl. Diskette 
Tips&TricJcs zu 3-D-Grafik, Formular- und Fenster¬ 
verwaltung, umfangreiches Befehlsverzeichflis, 
Beschreibung des Compilers, Einbindung von 
Betriebssyste m-Routi nen r 
Best.-Nr, 90435 
ISBN 3-89090-435-1 

DM S2,-/sFr 47,80/5$ 405,60_ 


P.Woüschiager 

Atari-ST-Assembler-Buch 

1987,300 Seiten, inkl, Diskette 
Ein 68000-KurS mit vielen Beispielen, Mit Trps 
für das Einbänden von Assemblerroutinen in 
Hochsprachen und ausführlichem Verzeichnis 
aller GEMrDOS-, BDS- und XBIOS-Funktionen, 
Best.-Nr. 90467 
ISBN 3-8909(M67*X 
DM 59,-^sFr 54,30/ÖS 460.20 


R. Aum Iller/D.Luda 
Programmieren mit 
Förth Atari ST 

1987, 531 Seiten, inkl. Diskette 
Einführung in Fcrth. Ausführliche 
Darstellung der Programmierung 
unter GEM. Nutzung der Grafik- 
befehie, Sprites und GEM-TOS- 
Aufrufe. 

Bsst.-Wr, 90237 

ISBN 3-39090-237-5 

DM 49,-/sFr 45,10/öS 332 T 20 


P.Wollschlaeger 

Atari ST Programmierpraxis 

ST Pascal 

1987, ca. 250 Seiten, 

inkl. Diskette 

Eine strukturierte Anleitung 
zum professionellen Pro¬ 
grammieren unter ST Pascal 
(Plus). Mit vielen Beispielen 
für Une-A-Grafik, Sprites, 
Multitasking, GEM- 
und maschinennahes 
Programmieren. 

BesL-Nr. 90490 

ISBN $39090-490-4 

DM 59WsFr 54,30/öS 460,2Q 


F. Mathy 

Programmierung von Grafik & Sound 
auf dem Atari ST 

1987, 333 Seiten, inkl. Diskette 
Vermittelt dem Pascal- und C-Frogrammierer 
die Grundlagen zu einer erfolgreichen Graflk- 
und Soundprogrammierung auf dem Atari ST. 
Beschreibung der Grafikhardware und eine 
ausführliche Besprechung der im TOS imple¬ 
mentierten Grafikroutinen. 

Best.-Nr. 90405 
ISBN3-89090-405-X 
DM 52,-/sFr 47,80/öS 405,60 


Markt&Technik-Produkte erhalten Sie bei Ihrem 
Buchhändler, in Computer-Fachgeschäften oder in den 
Fachabteilungen der Warenhäuser. 


Irrtümer und Änderungen Vorbehalten 


Markt&lechnik 


Zeitschriften ■ Bücher 


Fragen Sie bei Ihrem 
% W Buchhändler nach unserem 
^ / kostenlosen Gesamtverzeichnis 
(»/ mit über 20G aktuellen 
J Gomputerbüchern und Software. 

/ Oder fordern Sie es direkt 
beim Verlag an! 


Software ■ Schulung 


Markt ^Technik Vertag AG, Buchverlag, Hans-Pinsel-Straße 2, / 
8013 Haar bei München, Telefon (0S9) 4613-0. L 
SCHWEIZ: Markt ^Technik Vertriebs AG, Kolterstrasse 3, CH-63ÜOZug, Telefon (042) 415656, 
ÖSTERREICH: Rudolf Lechner&Sohn, Heizwerkstraße 10, A-1232 Wien, Telefon (0222) 677526, Ueberreuter 
Media Handels- und Verlagsges. mbH Graflhandel, Alser Stra&e 24, A-1091 Wien, Telefon (0222) 481538-0 
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Arkanoid 


D ie Idee zu dem etwas betagten 
»Breakout« ist wohl so alt wie 
die Heimcomputer selbst. 
Lange Zeit flimmerte das Spielchen in 
verschiedenen Abwandlungen über 
die Monitore aller Heimcomputer, bis 
es nach einiger Zeit in der Versenkung 
verschwand. 

Erst seit kurzer Zeit erlebt die alte 
Idee ein nie dagewesenes Comeback. 
Ausgelöst wurde das Breakout-Fieber 
in der Spielhalle: mit dem Automaten 
»Arkanoid«. Jetzt ist es endlich auch für 
die Atari 8-Bit-Computer erschienen. 

Die Idee von Arkanoid ist einfach. 
Sie haben einen Schläger, den Sie am 
unteren Bildschirmrand hin und her 
bewegen können. Mit ihm versuchen 
Sie, einen furios herumsausenden 
Ball zu treffen. Im oberen Bildschirm¬ 
drittel befindet sich eine Mauer, die Sie 
Stein für Stein abbauen müssen. 
Jedesmal, wenn der Ball einen Mauer¬ 
stein erwischt, löst sich dieser (in 
Wohlgefallen) auf und hinterläßt eine 
positive Spur auf Ihrem Punktekonto. 
Wenn Sie alle Mauersteine wegge¬ 
schossen haben, kommen Sie in 
einen neuen Level. 

Die Hintergrundstory zu Arkanoid ist 
beachtlich aufgemöbelt, aber eigent¬ 
lich recht überflüssig für das Spiel: 
Das Raumschiff Arkanoid wird von 
einer bösen Macht (von wem sonst...) 
in einer Raum-Zeitfalle gefangen 
gehalten. Nur die Raumkapsel »Vaus« 
hat es geschafft, zu entkommen. Und 
eben diese Kapsel ist der Schläger, 
den Sie bedienen. Ihr Ziel ist es, sich 
durch 32Screenszu kämpfen, um das 
Mutterschiff wieder freizubekommen. 
Damit das richtige Raumschiff-Gefühl 
aufkommt, ist die Grafik recht abstrakt 
gezeichnet. 

Manchmal sind in den Mauerstei¬ 
nen Zubehörteile verborgen, die man 


Spielautomaten-Power gibt es 
auch auf dem Atari! Wer keine 
müde Mark mehr in die Spiel- 
hallen-Automaten investieren 
will, sollte sich Arkanoid für den 
XL/XE besorgen. 


mit dem Schläger einfangen muß. 
Diese Extras haben die Form von Ton¬ 
nen, die langsam nach unten fallen. 
Durch sie kommt Hektik auf. Wenn 
man nämlich nicht schnell genug ist, 
kann es passieren, daß man vor lauter 
Extra-Bonbons den Ball sausen läßt. 

Es gibt insgesamt sieben verschie¬ 
dene Zusätze, mit denen Sie Ihre Vaus 
ausstatten können. Ein »P« gewährt 
ein Extraleben. Wenn Sie ein »G« ein¬ 
fangen, klebt der Ball an dem Schlä¬ 
ger und kann so viel präziser wieder 
abgeschossen werden. Wenn Ihnen 
zuviel Hektik aufkommt, sollten Sie 
schauen, daß Sie ein »S« erwischen. 
Damit wird der Ball langsamer und 
somit leichter zu treffen. Besonders 
angenehm ist ein »L«, durch das die 
Vaus mit einem High-Speed-Laser 
ausgerüstet wird. Die Mauersteine 
sind damit in Nullkommanichts abge¬ 
räumt. 

Das »D« ist etwas für ganz beson¬ 
ders fixe Arkanoid-Spieler. Sobald Sie 
diese Tonne berühren, verwandelt 
sich Ihr Ball in drei kleinere Bälle. 
Natürlich treffen Sie jetzt dreimal so 
viele Mauersteine, aber Sie müssen 
auch drei Bälle gleichzeitig im Spiel 
halten! Mit »E« transformiert sich die 
Vaus in eine besonders breite 
Variante. Das wohl begehrteste Extra 
ist nach wie vor das »B«. Sobald Sie 
diese Tonne berühren, öffnet sich am 
rechten unteren Rand die Begren¬ 
zung. Wenn Sie mit der Vaus in die ent¬ 


standene Lücke hineinfahren, kom¬ 
men Sie automatisch in den nächsten 
Level. Daß dieses Extra nicht oft in 
einem Spiel vorkommt, versteht sich 
wohl von selbst. Oft anzutreffen sind 
dagegen der Kleber »G« und der 
»S«low-Modus. 

Aber auch mit diesen wichtigen Ver¬ 
günstigungen werden Sie schwer zu 
kämpfen haben, denn Arkanoid ist 
nicht einfach. Spätestens im dritten 
Level werden Sie Ihre Schwierigkeiten 
haben. Es tauchen Ziegel auf, die 
durch nichts zu vernichten sind. Auch 
ein Laser ist wirkungslos. Sie müssen 
schon genau zielen, um in den vierten 
Level zu kommen. Und es stehen 
Ihnen zweiunddreißig Level bevor... 

Steuern können Sie Ihre Vaus mit so 
ziemlich allem, was Sie an Ihren Atari 
anschließen können. Keyboard, Padd¬ 
ies oder Joystick stehen Ihnen zur Ver¬ 
fügung. Die Abfrage ist flott und rea¬ 
giert gut auf den Spieler. 

Grafisch gibt sich Arkanoid auf dem 
XL/XE etwas zwiespältig. Die Hinter¬ 
grundgrafik ist absolut dem Automa¬ 
ten nachempfunden und braucht sich 
nicht vor einem 16-Bitter zu ver¬ 
stecken. Auch die Vaus sieht recht 
chic auf dem Bildschirm aus. Etwas 
seltsam ist dagegen der Ball geraten: 
Vier mal acht Pixel hoch, hat er nicht 
das beste Aussehen aller Bälle dieser 
Welt erwischt. Haarsträubend verläuft 
leider die eckige Flugbahn: Man kann 
manchmal zusehen, wie der Bali wäh¬ 
rend des Flugs rechnet. Sobald aber 
die Geschwindigkeit während des 
Spiels zunimmt, verschwindet der stö¬ 
rende Effekt. Insgesamt kann man 
sagen, daß die Umsetzung für den 
XL/XE sich nicht hinter anderen ver¬ 
stecken muß. Außerdem ist Arkanoid 
ein Spiel, von dem man sich nicht 
mehr so schnell iosreißen kann, (al) 
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...und schon geht’s schwierig weiter. 












Direkt bestellen statt Abtippen 


256 Farben gleichzeitig 
auf dem Bildschirm! 

Was Atari in der Werbung versprach und nur bedingt 
halten konnte, wird mit diesem Programm wahr 
gemacht: Auf dem Bildschirm sind gleichzeitig alle 256 
Farben des Computers darstellbar. Zwei Programme 
nutzen diese Möglichkeit aus: 

Faint256 

ist ein Malprogramm, mit dem in 256 Farben gepinselt 
wird. Neben den üblichen Funktionen zum Zeichnen 
von Punkten, Linien und Flächen besitzt es eine Funktion 
zum Einbinden von Text ins Bild und zum Dehnen oder 
Stauchen von ßildelementen. 

Apfel256 

berechnet die Mandelbrotmenge in 256 Farben. Ein 
unvergleichlicher Anblick auf dem Atari Computer! 

Arax: 

Ein Krieg zwischen den beiden wichtigsten Völkern des 
Universums ist ausgebrochen. Als junger Kadett starten 
Sie ein waghalsiges Unternehmen und desertieren von 
Ihrer Einheit. Sie wollen dem unsinnigen Treiben ein Ende 
setzen und fliegen zu der Haupbasis des Feindes, um 
diese zu zerstören. Damit wären dann alle Probleme 
beseitigt. 

Helimarm: 

ln diesem Spiel fliegen Sie mit einem Hubschrauberruck- 
sack augerüstet durch unterirdische Höhlen. Jede 
Menge Gefahren lauem auf Sie, die Sie bewältigen 
müssen, um den Ausgang der Höhle zu erreichen. 


Zusätzlich ist im Spiel ein Editor enthalten, mit dem neue 
Höhlen entworfen werden. 

Paver: 

Ein Spiel für zwei. Sie fliegen mit einem Fahrzeug über 
eine mosaikartige Landschaft, und versuchen, an pas¬ 
senden Stellen Steine einzufügen. Wer als erster die 
Stelle für den nächsten Stein findet, bekommt die Punkte. 

Grafik Draw: 

Ein Malprogramm für fast alle Grafikstufen der XIYXE- 
Computer. Eine Menüsteuerung macht die Bedienung 
extrem einfach. Fast alle Funktionen werden wahlweise 
mit einem Joystick oder einem Grafik-Tablet gesteuert. 
Zusätzlich steht eine Hardcopy-Routine zur Verfügung, 
die sich einfach an verschiedene Drucker anpassen läßt. 

Char Maker: 

Das ultimative Zeichensalzprogramm. Alle wichtigen 
Funktionen werden über den Joystick gesteuert. Unter¬ 
stützt die Grafikstufen 0, 1 und 12, mit Char Maker 
lassen sich also auch Farbzeichensätze editieren. 
Zusätzlich lassen sich die selbsterstellten Zeichensätze in 
eigene Basic-Programme einbinden. 

Weiterhin finden Sie Turbo Basic XL und alle weiteren 
Programme dieser Ausgabe auf der Diskette. 


2 Disketten für den Atari XL/XE 
Bestell-Nr.: 25720 


DM34,90 


(sFr 29,50/ÖS 349,-*) 

4 inkl M&hrwertsteuer. Unverbindliche Pnetsempfehfung 
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Weitere Programmservice^Angebote für Atari XE/XL 


Schnelleres Kopieren auf Atari- 
Laufwerken 

File-Copy: Benötigen Sie ein Programm, mit dem Sie schnell 
und komfortabel Sicherheitkopien Ihrer Dateien anfertigen kön¬ 
nen? Wollen Sie Ordnung in Ihre Diskettensammlung bringen? 
MitMFCOFY ein Kinderspiel. Zahlen mit Format: Mit die¬ 
ser Routine lassen sich in Turbo-Basic auf einfachste Weise Zah¬ 
len runden und formatiert auf den Bildschirm bringen. Diese 
Funktion ist besonders nützlich für Programme, in denen statisti¬ 
sche oder kaufmännische Berechnungen durchgeführt werden. 
Tic-Tac-Toe: Als Endprodukt des Kurses Künstliche Intelligenz 
selbstgestrickt wurde dieses Programm vorgestellt. Dieses Spiel, 
bei dem Sie gegen den Computer antreten, veranschaulicht die 
professionelle Programmierung von Strotegiespielen. Jump: 
Sie steuern einen Tennisball, der über eine durchlöcherte Ebene 
hüpft. Dabei müssen Sie jeden Sprung exakt vorausberechnen 
und obendrein noch einem Pfeil ausweichen, der sein Unwesen 
treibt. The Final Fight: En diesem fesselnden Action-Spiel 
müssen Sie Ihr notgelandetes Raumschiff gegen Angriffe vertei¬ 
digen. Die Bewohner dieses Planeten sehen Ihre Landung als 
feindliche KompfhondLung on und versuchen Sie mit ollen Mit¬ 
teln zu vertreiben. Die Anleitung zu diesen Programmen finden 
Sie in den Ausgaben 4, 5, 6 und 7 der Happy-Computer. 

1 Diskette für Atari-XLTXE-Computer 

BesteEI-Nr.: 20707 DM 29,90* sFr 24,9Ü/ö$ 299,-* 


Turbo-Bask - 

Das Nonplusultra für Programmierer 

Turbo-Basic (12/85): Der schnelle Basic-I Interpreter für den 
Atari-Computer. Auf der Diskette befinden sich je eine Version für 
den Atari 300XL und den Atari 800 mit mindestens 48 KByte 
RAM. Ampel (12/85); Atan-Maschinen-Programm-Eingobe^ 
LIsting. Atari-Prüfsummer: Eingabehilfe für alle in Happy- 
Computer veröffentlichten Basta-Programme. Jumper II: 
LIsting des Monats 8/84, um die Geschwindigkeit von Turbo 
Basic zu demonstrieren. Magic-Fainter: Usting des Monats 
3/85. Ein Zeichenprogramm, das an Turbo-Bosic angepabt 
wurde, 

1 Diskette für Atari 800X1/130XE/800. 

Bestell-Nr.: LH85I2B DW129,90* sFr 24,90/öS 299,-* 


Windows unter Turbo-Bask 
Turbo*Windows (9/86); Fenstertechnik für Turbo-Bcsie. 
Drehkörper (9/86): Ein schnelles Programm in Turbo-Basic 
zum Zeichnen von 3D-Funktionen. Labyrinth (3/87): Unser 
Usting des Monets März stellt wieder einmal die Krönung der 
Pragrammierkunst auf den Atari XE/XL-Compufem dar. Sie steu¬ 
ern eine Schlange durch ein Labyrinth und sammeln Gegen¬ 
stände auf, ohne sich dabei selbst zu beißen. Morlcy (1/87); 
Schlüpfen Stein die Rolle unseres kleinen Helden und erforschen 
Sie insgesamt 35 Räume des Labyrinths, um on Ihr Ziel zu gelan¬ 
gen! Mord im Computer (4/86): Als Mark Simpson versu¬ 
chen Sie, das Wrschwinden Ihres Freundes aufzudecken. Far¬ 
ben gut gemischt (8/86): Mehr Farben auf dem Bild¬ 
schirm. Laufschrift (10/86): Fehlt Ihnen ein Vorspann für Ihr 
neues Spiel? Kein Problem mit unserem Maschinenprogramm! 
1029 Hardcopy (10/86): Dieses Programm erledigt schnell 
und sauber Ausdrucke auf dem Atari 1029-Drucker. Deashow 
(11/36): Zur Präsentation von computergenerierten Bride m. 
Nanoconverler (12/86): Mit diesem Programm können Sie 
komfortabel und menügesteuert Ihre Spiele von Diskette In den 
Computer laden. Drucker-Kosmetik (2/87): Deutsche 
Sonderzeichen und Unterlängen sind mit dem Drucker Atari 
1029 nicht ohne weiteres darstellbar. Diesem Nachteil wird hier 
zu Leibe gerückt. Frint-Shop-Grafiken (2/87): Mit die¬ 
sem Programm in Turbo-Bosic drucken Sie Ihre Grafiken über¬ 
sichtlich auf Papier. 

1 Diskette für Atari-XL/XE-Computer 

Bestell-Nr.: 20703 DM 29,90* sFr 24,90/öS 299,-* 


Grafik unter Turbo-Bask 
Turbo-Basic-Interpreter und -Compiler für Atari- 
Computer • Apfelmännchen in Turbo-Basic • Grafik unter 
Turbo Basic XL • Daten komprimiert gespeichert • Disksorter 
• Submission (Labyrinthspiel) • Vorsicht Falle (Adion-Spiel) • 
Pacman mal 2 • Zeichensatzumwandler • Schnellader 
2 Disketten für Atari 8ÖÖXLV13ÖXE-Computer 

Bestell-Nr,: 20703 DM 29,90* sFr 24,90/öS 299,-* 

Auf der Suche nach dem 
schwarzen Gold 

ÖEsuche (8/85): Spiel, bei dem Sie mit dem Atari ST auf 
Ölsuche gehen. Atari-Prüfcummer: EingabehrEfefüralle in 
Ha ppy-Compufer veröffentlichten Basta-Programme. Geröll- 
hefmer (5/85): Spiel mit Screen-Editor und 20 fertigen Sze¬ 
nen. 24 Farben in Graustufe 0 (6/85): Routine für far¬ 
bige Schrift. Diskhelp (8/85): Für die schnelle Rettung. 
Auto Start (9/85): Basic-Prag ramme starten automatisch. 
Dudu 4.0: Mehr Speicher mit der Flopp/ 1G5Q. 

1 Diskette für Atari 8Q0XL 

Bestell-Nr.: LH8510B DM 29,90* sFr 24,90/öS 299,-* 

Happy-Painter - 

Das komfortable Malprogramm 

Happy-Painter: Unser LIsting des Monats der Ausgabe 
3/85 ist ein Grafikpragramm, das sich mit anderen Mclprog ram¬ 
men dieser Art messen kann. Besonders gelungen ist die einfa¬ 
che Bedienung, da man mit dem Joystick sowohl im Haupt- ab 
auch in den Untermenüs sämtliche Punkte anwählen kann. Der 
elektronische Malkasten verfügt über 16 Menü punkte und bietet 
eine Grafikauflösung von 160x96 Pixel. Gitifikdevno 
(3/85): Alle 256 Farben werden auf dem Bildschirm borge- 
stellt. Eine Färbspielerei, die die hervorragenden Grafikfähigkei¬ 
len der Atari-Computer beweist (Roinbaw-Effekt)- Variablen- 
Dump (2/85): Mit diesem Programm können Sie die verwen¬ 
deten Variablen eines anderen Programms auf dem Bildschirm 
listen. Als die Bilder laufen lernten: Mit dem Utility 
Power-Mover können Sie laufende Bilder schnell und problem¬ 
los erzeugen. Statuszeile mit Uhr (1 /85); Damit Sie beim 
Programmieren nicht die Uhrzeit vergessen, hilft nur eine ständig 
sichtbore Zeftanzeige. Mit diesem Programm können Sie eine 
zusätzliche Statuszeile oberhalb des Bildschirms generieren, 

1 Diskette für Atari-Computer mit mind. 48 KByte RAM 

&esfell-Nr. : LH8503B DM 29,90* sFr 24,90/öS 299,-* 

Die Jagd nach Gold, Juwelen 
und Diamanten 

Dvamantenfieber: Unser Usting des Monats 2/85 ist eine 
wahre Schatztruhe. Bereichern Sie sich an bunt glitzernden Dia¬ 
manten, die überall En einem Bergwerk verteilt sind. Aber Vor¬ 
sicht! Die Stollen sind sehr instabil. Eine falsche Bewegung, und 
Sie werden von lasen Gesteinsbrocken erschlagen. Ein Spiele- 
Designer sorgt bei unserer exzellenten BouIder-Dash-Vanante 
für anhaltende Spannung* Die Schatzsuche (Ausgabe 
1/85): Wer machte sich nicht auch mit einem Schatz be¬ 
reichern? Wer dazu nicht unbedingt eine Weltreise unter¬ 
nehmen möchte, kann mit seinem Atari 800XL in eine Schatz¬ 
höhle elndringen. Gefährliche Tiere wie Skorpione, Ratten und 
Schlangen erschweren die Suche. Zeilenzauber (11/34): 
Die wichtige RENUMBER-Funktfon fehlt leider im Standard- 
Basic-Edltar des Atari. Dieses Programm beseitigt diesen 
Mangel. Jumper II (Usting des Monats 8/34): Ein 
professionell gemachtes, in Basic geschriebenes Spiel- Ex¬ 
zellente Programmierung, ein High-Score-Zähler und ein ein¬ 
gebautes Demo werden selbst Zweifler schnell überzeugen. Auf 
musikalische Untermalung wurde großer Wert gelegt, und die 
verschiedenen Screens sind brillant gemacht- Mop * Der 
Goldgräber (7/84): Schnelligkeit und guter Sound zeich¬ 
nen dieses Spiel aus. Die Soundfähigkeiten sind wirklich hervor¬ 
ragend. Viele Bilder sorgen für Abwechslung. 

1 Diskette für Atari-Computer mit mind. 48 KByte 

Bestell-Nr.: LH8502B DM 29,90* sFr 24,90/öS 299,-* 
*inkl. Mehrwertsteuer. Unverbindliche Praisempfehlung 



Sie suchen packe nte Spiele, 
hilfreiche UtiSiries und professio¬ 
nelle Anwendungen für Ihren 
Computer? Sie wünschen sich 
oute SoFfware zu vernünftigen 
Preisen? Hier Finden Sie beides! 
Unser stetig wachsendes Sorti¬ 
ment entlud;i interessante Lisling- 
Softworo Für alle gängigen 
CompuTertypon. laden Mono: 
erweitert sich unser aktuelles 
Angebot um eine weitere inter¬ 
essante Progrommsommlung für 
jeweils einen Computertyp, 
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Wizard's Crown 



...und müssen sich gegen Riesenspinnen wehren 


Die Kämpfer sind im Stadtpark... 

s geschah vor 500 Jahren, als 
^■der Bund der Zauberer noch 
^■über das Land herrschte. Er 
regierte das Land weise, gerecht und 
immer zum Vorteil des Volkes. Alle 
Gerechtigkeit, Güte und Weisheit ent¬ 
stammten einer Krone. Wer diese 
Krone aufsetzte, besaB alle Weisheit 
der Welt und konnte Dinge in der Ver¬ 
gangenheit und Zukunft erblicken. 
Kurz, die Krone war ein absolutes 
Machtinstrument. 

Ein Zauberer war für die Dauer einer 
vorbestimmten Zeitspanne dazu aus¬ 
erwählt, die Krone zu tragen und das 
Land zu regieren. 

Eines unglücklichen Tages kam es, 
daß der Zauberer Tarmon an der Reihe 
war, die Krone an den nächsten im 
Bunde weiterzuleiten. Der dachte 
jedoch nicht daran, seine erworbene 
Machtstellung aufzugeben. So ent¬ 
brannte ein bitterer Kampf unter den 
Hexenmeistern, den nur wenige über¬ 
lebten. Häßliche Kreaturen bevölkern 
fortan die Ruinen der einst prächtigen 
Stadt Arghan, von der aus die Magier 
früher herrschten. 

Die letzten Zauberer versuchen ver¬ 
zweifelt, die Krone wieder an sich zu 
bringen. Kaitar, der älteste der übrig¬ 
gebliebenen, hat dazu einen Plan 
ersonnen. Er will unerschrockene 
Abenteurer anheuern, die versuchen 
sollen, die Krone den Händen Tar- 
mons zu entreißen. Falls sie ihre Auf¬ 
gabe erfüllen, warten Ruhm und eine 
so hohe Entlohnung auf die Abenteu¬ 
rer, daß ein Menschenleben nicht aus¬ 
reicht, das Geld auszugeben. 

Soweit zur Vorgeschichte von 
»Wizard’s Crown«, die anderthalb Sei¬ 
ten der 32 Seiten starken Anleitung 
zum Spiel in Anspruch nimmt. Viel zu 
lesen also für den Adventure- 
Begeisterten. 


Ein neues Rollenspiel ist für die 
kleinen Atari-Computer er¬ 
schienen: »Wizard’s Crown«. 
Bei diesem Spiel, das ähnlich 
umfangreich wie »Ultima IV« ist, 
müssen acht Kämpfer eine 
Krone suchen. 


Wizard’s Crown ist ein Rollenspiel 
ä Ea »Dungeons and Dragons«. Soviel 
wurde in der Vorgeschichte schon ver¬ 
raten: Man spielt mit mehreren Cha¬ 
rakteren gleichzeitig. Das ist auch 
einer der Gründe, warum man sich 
nicht als Einsteiger an das Spiel her¬ 
anwagen sollte. Bis zu acht Figuren 
sollen gleichzeitig kontrolliert werden, 
wobei die Anleitung nicht ohne trifti¬ 
gen Grund empfiehlt, zu Beginn des 
Spiels alle acht Charaktere zu nutzen. 
Das Spiel ist sonst zu schnell vorüber. 

Zu Beginn befinden sich alle Cha¬ 
raktere in einer Kneipe, in der sie sich 
von ihren Streifzügen ausruhen kön¬ 
nen, erbeutete Schätze und Waffen 
lagern, sowie im Falle des Ablebens 
eines Mitglieds einen neuen Abenteu¬ 
rer anheuern können. Von hier aus 
startet die Kampfgemeinschaft, die 
Krone zu suchen. Am Anfang sollte 
man sich jedoch erst einmal auf die 
Stadt beschränken. Hier gibt es schon 
genug zu entdecken. Schnell kommt 
es zu ei nem ersten Kam pf mit einer der 
zahlreichen Räuberbanden der Stadt. 
Der Computer stellt dann Kampfmög¬ 
lichkeiten zur Auswahl: Zum einen gibt 
es den schnellen Kampf. Hier über¬ 
nimmt der Computer alle Steuerfunk¬ 
tionen der einzelnen Charaktere und 
der Angreifer. Zum anderen gibt es 
den normalen Kampf. 

Zu Beginn des Gefechts muß sich 
die Gruppe erst formieren, um dem 


Angreifer mit maximaler Kampfkraft 
gegenüberzutreten. Zauberer sollten 
sich im Hintergrund halten, und Kämp¬ 
fer in vorderster Front stehen. 
Anschließend geht das Hauen und 
Stechen los. Jeder der acht Gruppen¬ 
mitglieder kann einen der Angreifer 
bekämpfen. Dabei spielt die Waffe und 
Rüstung des Angreifers genau so eine 
Rolle wie die Position des Gruppen- 
mitglieds zum Feind. Besitzt der Krie¬ 
ger zum Beispiel ein Schild, sollte er 
sich so hinstellen, daß der Feind links 
von ihm steht, da er dann einen Schlag 
des Angreifers mit dem Schild am lin¬ 
ken Arm abfangen kann. Insgesamt 
stehen 21 Funktionen während des 
Kampfes zur Verfügung. 

Haben die Gruppenmitglieder ein 
Gefecht überstanden, so bekommen 
sie Erfahrungspunkte, mit denen sie 
ihre verschiedenen Eigenschaften wie 
Wendigkeit, Umgang mit der Waffe, 
Ausdauer und Stärke verbessern. 
Zauberer brauchen magische Ener¬ 
gie, um ihre Kunst betreiben zu kön¬ 
nen. Nach einem Kampf geht es auch 
darum, den besiegten Feinden Waffen 
und Geld abzunehmen. Einige Waffen 
sind verzaubert und haben eine 
wesentlich verheerendere Wirkung 
als die Originalwaffen der Gruppen¬ 
mitglieder. Waffen, die die Kämpfer 
nicht gebrauchen können, lassen sich 
auf dem Markt zu Geld machen. Mit 
dem Geld wiederum können die Cha¬ 
raktere in einer Kneipe übernachten. 

Auch wenn das Spiel extrem kompli¬ 
ziert zu sein scheint (was es übrigens 
auch ist): Es bringt riesengroßen 
Spaß. Bis man die Krone gefunden hat 
und sie Kaitar zurückbringen kann, 
wird eine ganze Weile vergehen. Und 
falls man sie wirklich finden sollte, eine 
Fortsetzung des Adventures ist in 
Planung. (hf) 
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Leader Board 


ei Leader Board hat man die 
Wahl zwischen drei Schwierig- 
keitsstufen, »Novice«, »Ama¬ 
teur« und »Professional«* Bei letzterer 
spielen Faktoren wie Seitenwind und 
Anriß des Balls eine tragende Rolle. 
Diese Stufe sollte man wirklich nur 
wählen, wenn man schon länger Lea¬ 
der Board gespielt hat und io der 
Bedienung der vielfältigen Funktionen 
firm ist. Nach der Wahl des Schwierig¬ 
keitsgrades fragt das Programm nach 
der Anzahl und den Namen der Spie¬ 
ler. Bis zu vier Spieler können gleich¬ 
zeitig ein Spiel bestreiten, wobei das 
Programm vier verschiedene Kurse an 
zu spielenden Löchern zur Auswahl 
stellt. Kurs 1 ist der leichteste und 
sollte von dem Anfänger gespielt wer¬ 
den. Bei Kurs 4, dem schwierigsten, 
sind die einzelnen Bahnen so mit Was¬ 
serlöchern und Inseln gespickt, daß es 
arge Schwierigkeiten bereitet und 
hoher Genauigkeit bei der Dosierung 
des Schlages bedarf, um eine Bahn zu 
meistern. 

Das Spiel beginnt damit, daß ein 
kleines Männchen, zusammen mit der 
Ansicht der Bahn, aus der Perspektive 
des Männchens gezeichnet wird. Jetzt 


Sportspiele gibt es zur Genüge, 
auch für die kleinen Atari- 
Computer. Trotzdem hat die 
Firma Access-Softwa ne ihre 
Golf-Simulation für diesen 
Computer umgesetzt. Das hat 
einen guten Grund, denn »Lea¬ 
der Board« ist bislang die am 
besten gelungene Golfspiel-Si- 
mulation, die es zu kaufen gibt. 

stärke, durch den zweiten Druck den 
Anriß des Balls fest. Je nach gewähl¬ 
tem Schläger fliegt der Ball nun eine 
bestimmte maximale Strecke. Die 
maximalen Schlagweiten der einzel¬ 
nen Schläger sind in dem Handbuch 
aufgeführt. Da der Computer ständig 
die Entfernung des Spielers zum Loch 
anzeigt, hat man mit aufgeschlage¬ 
nem Handbuch neben dem Computer 
schnell heraus, weichen Schläger 
man wählen muß. Ging der Schlag 
nun völlig daneben oder fiel der Bail 
ins Wasser, so gibt es einen weiteren 
Versuch von genau der gleichen Posi¬ 
tion aus. 

Ist der Ball dagegen auf dem Fest- 


dazugezählt, bei mehr benötigten 
Schlägen werden Punkte abgezogen. 
Es kann also durchaus Vorkommen, 
daß man am Schluß der 18 Bahnen 
eines Spiels eine negative Punktezahl 
hat. 

Beim Auspacken der Diskette fällt 
ein kleiner Stecker auf, der am Joy¬ 
stickport 2 aufgesteckt wird. Dieser 
Stecker, im Fachjargon »Dongel« ge¬ 
nannt, dient als Raubkopierschutz des 
ansonsten ungeschützten Programms. 
Das Programm fragt periodisch die¬ 
sen Stecker ab. Sollte er einmal wäh¬ 
rend des Spiels abgezogen werden, 
so wird der Bildschirm sofort mit 
wüsten Linien überzogen, das Pro¬ 
gramm verweigert in dem Fall die 
Arbeit. Bei der Diskette befindet sich 
eine Ißseitige Anleitung, in der die 
besondere Bedienung des Spiels be¬ 
schrieben wird. Auch wenn den An¬ 
fänger die Bedienung des Spiels 
etwas kompliziert an mutet - hat man 
das Prinzip der Funktionen erst einmal 
begriffen, ist die Bedienung kin¬ 
derleicht. 

Wie wohl alle Sportspiele bringt 
Leader Board mit mehreren Spielern 
wesentlich mehr Spaß als allein. Da 



Mit der Anzeigetafel hat man immer den Überblick 



Golfbahnen aller Schwierigkeitsgrade laden zum Spielen ein 


legt man mit dem Joystick mittels 
eines Kreuzes auf dem Bildschirm die 
Schlagnchtung fest. Ein kleiner Pfahl 
seitlich des Spielers informiert über 
die herrschende Windrichtung und die 
Windstärke. Der Schlag muß nun in 
dieser Richtung ausgeführt und so 
dosiert werden, daß der Wind kom¬ 
pensiert wird. Anfangs keine leichte 
Aufgabe, denn die Kontrollen bei Lea¬ 
der Board sind genauso kompliziert 
wie funktionsgerecht. 

Durch den ersten Druck auf den 
Joystickknopf legt man die Schlag¬ 


land liegengeblieben, so wird ein 
neuer Bildschirm gezeichnet. Falls der 
Ball nun innerhalb eines Radius von 
64 Fuß zum Loch gelangt sein sollte, 
hat man nur noch einen Schläger zur 
Verfügung. Dieser »Putter« genannte 
Schläger ist dazu da, den Ball sachte 
ins Loch zu spielen. Je nach der 
Anzahl der Schläge, die man für eine 
Bahn benötigte, werden vom Pro¬ 
gramm Punkte vergeben. Für jede 
Bahn ist dabet eine bestimmte Anzahl 
Schläge vorgegeben. Braucht man 
weniger Schläge, werden Punkte 


die Simulation durch gute Program¬ 
mierung einen Bezug zur Realität her¬ 
stellt, kann man durchaus Geschmack 
auf richtiges Golfen bekommen. Die 
Grafik und die Kontrolle über die 
Schläge ist sehr gut. Leider fehlen wie 
in anderen Versionen Bäume in den 
Bahnen. Trotzdem ist Leader Board 
ein Spiel, das immer wieder gerne her¬ 
vorgeholt werden wird. 

Leader Board ist auf Kassette und 
Diskette erhältlich und kostet 39 Mark 
in der Kassetten- sowie 59 Mark in der 
Disketten version. (hf) 
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vorbereitet sein. 
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Computeranwendung. 
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Die aktuelle Wochenzeitung für Per- ' \ 
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XL tiefgekühlt 



Mit einem Freezer lassen sich 
Sicherheitskopien geschützter 
Programme artfertigen. Der 
>Turbo-Freezer XL« bietet zu¬ 
sätzlich ein DOS, einen Monitor 
mit Disassembler, 256 KByte 
RAM und das Betriebssystem 
der alten Atari Computer. 

W as ist ein »Freezer«? Ein 
Freezer (englisch ’to freeze’, 
einfrieren) ist ein Computer¬ 
zusatz, gleich ob Hardware oder Soft¬ 
ware, der ein beliebiges Programm im 
Computer anhält und auf Diskette 
oder Kassette speichert. Anschlie¬ 
ßend läßt sich das Programm wieder 
laden und an genau der gleichen 
Stelle fortsetzen, an der es »eingefro¬ 
ren« wurde. Auf diese Weise läßt sich 
von jedem Programm, das nicht wäh¬ 
rend des Laufens Teile nachlädt, eine 
Sicherheitskopie anfertigen, auch 
wenn der Kopierschutz noch so gut 
ausgeklügelt ist. 

Für den C64 gibt es Freezer schon 
länger. Die Atarianer mußten auf die¬ 
sen nützlichen Zusatz jedoch bislang 
verzichten, da die interne Struktur der 
Atari 8-Bit-Computer es sehr kompli¬ 
ziert macht, Programme an einer 
beliebigen Stelle anzuhalten und 
ohne Veränderungen wieder zum Lau¬ 


fen zu bringen. Bernhard Engl, der 
den Atarianern durch sein 
Turbo-1050-Modul für die Disketten¬ 
station bereits ein Begriff ist, hat nun 
einen Freezer für den XL entwickelt. 

Der Turbo-Freezer XL entpuppt sich 
als ein 8,5 mal 10,5 Zentimeter großes 
mit elektronischen Bauteilen vollge¬ 
packtes Piatinchen, das hinten auf 
den Erweiterungsbus des XL aufge¬ 
steckt wird. An der Seite der Platine 
steht ein kleines Kabel ab, das die 
Stromversorgung des Freezers 
sicherstellt. Ans Ende des Kabels ist 
eine schmale Hülse angelötet, ln der 
Anleitung wird darauf hingewiesen, 
daß der Turbo-Freezer XL ganz ohne 
Lötarbeit zu installieren ist. Deshalb 
wird die 5-Volt-Versorgungsspannung 
mit dem Kabel am Joystickport abge¬ 
griffen. Die Hülse wird zu diesem 
Zweck auf den unteren zweiten Pin 
von links an einem der beiden Joy¬ 
stickports aufgesteckt. Am Computer 
montiert, sieht der Freezer dann ein 
wenig abenteuerlich aus, denn die 
offene Platine steht ein gutes Stück 
über den Rand des Computerge¬ 
häuses hinaus, und das Kabel am Joy¬ 
stickport macht auch keinen sehr ver¬ 
trauenerweckenden Eindruck. Da 
hätte man sich doch ein stabiles 
Gehäuse für die Platine gewünscht. 
Mit Blick auf den Preis des Freezers 
darf man jedoch nicht meckern. 


Wenn man den Computer einschal¬ 
tet, merkt man zunächst überhaupt 
nichts vom Freezer. Wir waren im 
Basic-Modus, und der Computer mel¬ 
dete sich ganz normal mit »READY«. 
Auf der Freezer-Platine befindet sich 
ein auffälliger kleiner roter Knopf. 
Wenn man diesen drückt, erwacht der 
Freezer zum Leben und übernimmt 
das Kommando über den Computer. 
Der Freezer hat jetzt schon sämtliche 
Prozessor-Register und Hardware- 
Register gespeichert und die Werte in 
seinem RAM verwahrt. Man befindet 
sich dann im Hauptmenü des Free¬ 
zers. Dieses besteht aus sechs Funk¬ 
tionen, die durch einfaches Tasten¬ 
drücken aufgerufen werden. Zunächst 
gibt es die Funktion »Save extern«, mit 
der der gesamte Computerspeicher 
auf Diskette oder Kassette gespei¬ 
chert wird. Bei Diskettenbetrieb läßt 
sich zusätzlich bestimmen, ob ein vom 
DOS lesbares File erzeugt werden 
soll, oder einfach nur die Disketten¬ 
sektoren beschrieben werden. Um 
nicht allzuviel Platz zu verschwenden 
und die Lade- und Speicherzeiten in 
Grenzen zu halten, wird der Compu¬ 
terspeicher in einer kompakten Form 
abgelegt. Dieser Datenblock enthält 
auch sämtliche von Freezer zum Zeit¬ 
punkt der Aktivierung gesicherte 
Registerwerte. 


SicIterheH geht vor 


Mit »Exec extern« wirdein so gespei¬ 
cherter Datenblock wieder in den 
Computer geladen, sämtliche Regi¬ 
ster restauriert und das Programm an 
genau der gleichen Stelle fortgesetzt, 
an der es unterbrochen wurde. Wir 
haben einige Programme mit dem 
Freezer ausprobiert und konnten 
keins finden, das nach dem Auftauen 
nicht lief, oder das nach dem Starten 
irgendwelche Fehler zeigte. Mit dem 
Freezer hat man also die Möglichkeit, 
von kopiergeschützten Programmen 
Sicherheitskopien zu ziehen. Interes¬ 
sant ist auch, ein Spiel an einer gefähr¬ 
lichen Stelle einzufrieren und zu spei¬ 
chern. Verliert man sein Spielerleben, 
kann man mit dem Freezer sofort an 
der gespeicherten Stelle weiterma¬ 
chen und muß sich nicht erst wieder 
durch sämtliche Gefahren kämpfen. 

Mit dem dritten Menüpunkt, »Zero 
OS RAM«, wird das RAM unter 
dem Betriebssystem gelöscht. Pro¬ 
gramme, die diesen Speicher nicht 
benutzen, werden dadurch in ge- 
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Das relationale Datenbanksystem 
für Ihren Atari ST 


dBMAN ist ein leistungs¬ 
starkes und flexibles' 
Datenbanksystem 


Ihre Daten wenden damit relational aufgebaut 
und verarbeitet, Dach das ist nach nicht alles; 
Mit der integrierten, bedienerfreundlichen 
Programmiersprache von dBMAN entwickeln Sie 
Ihre individuellen Anwendungsprogramme. Sie 
erstellen Auftrags bearbeitungs pro gram me und 
andere komplizierte Anwendungen. dBMAN ist 
zu dBASE III kompatibel. 

Ab Umsteiger haben Sie dadurch die Möglich¬ 
keit sofort mit dBMAN zu arbeiten. 


Lerstungsmerkm a le: 

O dBMAN erzeugt vollständige Datenbanken. 
Sie können auch Im nachhinein ahne Daten¬ 
verluste die Struktur verändern und erweitern. 

O Sie verwalten Ihre Daten mit dem mitgeÜefer- 
ten ASSIST(enten), ohne zeitraubend ein Hand¬ 
buch wälzen zu müssen. 

O Das Zufügen, löschen, Verändern, Darstellen 
und Ausdrucken von Daten erfolgt out einfache 
Weise. 

O Sie können bis zu 10 Dateien gleichzeitig 
öffnen, 2 Billionen Datensätze pro Datei ver¬ 
walten und eine unbegrenzte Zahl von Variablen 
verarbeiten. 



ÄIÄRI ST- Software 


dBMAN 

Alle Fähigkeiten einer 
relationalöl Datenbank 


Zwei S&'-Oisketten für die ATARI ST 
reit jrmdtesteris 512 Kbyta freiem RAM 


Ueferumfang: 

O umfangreiches deutsches Handbuch 
O 3 72"-Dis kette 
O Belspieldiskette 


H ardware-Anfo rderu ng ■ 

Atari $T mit mindestens 400 Kbyte 
freiem Speicher (1Mbyte RAM 
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mindestens 1 Diskettenlaufwerk. 
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freezter und gespeicherter Form 
wesentlich kürzer. 

Der vierte Menüpunkt speichert ein 
eingefrorenes Programm nicht auf 
Diskette oder Kassette, sondern auf 
einer RAM-Disk. Auf der Freezerplatine 
sind zu diesem Zweck acht Sockel für 
FIAM-Chips freigelassen, mit denen der 
Freezer in Schritten von 64 KByte auf 
256 KByte aufgerüstet werden kann. Mit 
64 KByte FtAM auf der Platine hat man 
also den Speicher eines 130 XE zur Ver¬ 
fügung. Nach der Anleitung ist man 
damit jedoch nicht ganz 13Q-XE- 
kompatibei. Im 130 XE werden die 
zusätzlichen 64 KByte RAM in vier 
16-KByte-Bänken in den Speicher ein¬ 
geblendet. Der XE läßt sich nun so pro¬ 
grammieren, daB der Mikroprozessor 
und der Bildschirmprozessor auf 
unterschiedliche Seiten zugreifen 
können. Falls ein Programm diese 
Betriebsart ausnutzt, wird es nicht 
ohne weiteres mit der RAM-Erweite- 
rung des Turbo-Freezers XL Zusam¬ 
menarbeiten. Zum einen gibt es 
jedoch bisher kein kommerzielles Pro¬ 
gramm mit dieser Betriebsart. Zum 
anderen ist in der Anleitung sehr 
genau beschrieben, wie man ein 
Kabel im Inneren des Computers so an 
den Erweiterungsbus anlötet, daß das 
Umschaltsignal zur Verfügung steht. 
Doch zurück zum Freezer-Menü. 
»Save Ramdisk« speichert wie »Save 
extern« den Computerspeicher mit 
allen Registerwerten. Das Gegen¬ 
stück dazu ist der Menüpunkt »Exec 
Ramdisk«, der aus der RAM-Disk ein 
Programm lädt, auftaut und startet. 


Register eingefroren 


Der sechste und letzte Menüpunkt 
läßt ahnen, welches Potential in dem 
Turbo-Freezer XL steckt. Wählt man 
den Menüpunkt »DOS/Debugger« an, 
hat man einen kompletten Monitor 
sowie ein komplettes DOS zur Verfü¬ 
gung. Mit dem Monitor lassen sich 
dann endlich die tiefsten Geheimnisse 
von Profiprogrammierern lüften. Für 
Leute, die beim Anblick von Program¬ 
men wie »Rescue on Fractalus« in 
andächtiges Staunen verfallen und 
bei denen sich im Kopf riesengroße, 
auf den Kopf gestellte Fragezeichen 
bilden, wenn sie gefragt werden, wie 
man so etwas programmiert, ist diese 
Funktion ideal. Ohne Probleme kann 
man nun ein in voller Aktion angehal¬ 
tenes Programm untersuchen. Zu¬ 
sätzlich schaltet der Freezer automa¬ 
tisch das RAM unter dem Betriebs¬ 
system ein, damit man sich die dort 
stehenden Programme anschauen 
kann. Weiterhin ist der Freezer so kon¬ 
struiert, daß das eigentliche Freezer- 



Der Freezer Prototyp. Die Serienmodelle werden mit Lötstopmaske geliefert 


Programm, sozusagen das Betriebs¬ 
system des Freezers, nicht sichtbar ist 
und auch keinen Speicherplatz im 
Computer belegt. Ein Programm be¬ 
merkt also niemals den Freezer und 
hat somit auch keine Möglichkeit, 
Gegenmaßnahmen einzuleiten. Dem 
Freezer und dem Monitor ist jedes Pro¬ 
gramm schutzlos ausgeliefert. Nach 
Belieben läßt sich ein Programm 
disassembtieren, verändern oder ent- 
schützen. Für eigene Programme ist 
der Monitor das ultimative Entwick¬ 
lungswerkzeug, da sich jedes Pro¬ 
gramm sofort beim Auftauchen eines 
Fehlers im Fehlerzustand unter¬ 
suchen läßt. 

Das eingebaute DOS stellt einen 
weiteren Knüller des Freezers dar. Ein 
Knopfdruck genügt, und es läßt sich 
mal eben schnell eine Diskette forma¬ 
tieren. Dabei gibt es jedoch einen klei¬ 
nen negativen Kritikpunkt. Jedes nor¬ 
male DOS schreibt nach dem Forma¬ 
tieren einer Diskette auf die ersten drei 
Sektoren ein Programm, das auf dem 
Bildschirm »Boot Error« ausgibt, wenn 
von der Diskette gebootet wird und 
sich kein DOS darauf befindet. Der 
Freezer tut dies nicht, weshalb sich 
der Computer aufhängt, wenn man 
versucht, von einer Freezer- 
formatierten Diskette zu booten. Wei¬ 
tere Folgen hat dies keine, es ist halt 
nur nicht besonders schön. 

Selbstverständlich werden Disket¬ 
ten in Single Density (90 KByte), 
Medium Density (130 KByte) und Dou¬ 
ble Density (180 KByte) unterstützt. 
Letztere allerdings nur mit einem auf¬ 
gerüsteten Laufwerk. Neben den 
Befehlen zum Formatieren von Disket¬ 
ten stehen Kommandos zum Anzei¬ 
gen des Inhaltsverzeichnisses einer 


Diskette, zum Schützen, Entschützen 
und Umbennen von Files sowie zum 
Laden und Speichern von Daten zur 
Verfügung. 

Auf der Freezer-Platine ist neben 
dem EPROM mit der Betriebssoftware 
des Freezers noch ein weiterer Sockel 
frei. Gleichzeitig befindet sich auf der 
Platine über dem roten Knopf ein 
Schiebeschalter. Blättert man in der 
Anleitung, so wird der Sinn des freien 
Sockels schnell klar: Hier läßt sich ein 
EPROM mit dem Betriebssystem der 
alten 400er/800er Computer von Atari 
einsetzen. Es gibt einige Programme, 
die mit dem Betriebssystem der neuen 
Computer nicht funktionieren. Da 
kommt das alte Betriebssystem im 
ROM sehr recht, denn damit hat man 
quasi einen alten Atari Computer und 
ab sofort keine Probleme mehr mit 
inkompatibler Software. 

Bei aller Euphorie hat der Freezer 
jedoch einen Nachteil: Er läßt sich nur 
am Atari 800XL betreiben, die Besitzer 
eines 130XE müssen vorerst noch auf 
eine Adapterplatine warten. 

Das alte Betriebssystem sowie die 
RAM-Disk in beliebiger Ausbaustufe 
kann gleich mitgeordert werden. Dazu 
schreibt man an: 

Gerald Engl 

Kennwort: Turbo-Freezer XL 
Bunsenstraße 13 
8000 München 83 

Der Freezer kostet 149 Mark, das 
alte Betriebssystem zusätzlich 10 
Mark und jede 64-KByte-Stufe der 
RAM-Disk 20 Mark. Wenn man sich 
anschaut, was der Freezer alles lei¬ 
stet, und dann seinen Preis mit dem 
von Konkurrenzprodukten vergleicht, 
kann man nur sagen, daß der Freezer 
ein echter Hammer ist. (hf) 
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Ein Laufwerk wird fröhlich 



Eine kleine Platine im Laufwerk machf’s möglich 


Schneller, besser, komfortabler. 
Damit läßt sich kurz beschrei¬ 
ben, was das »Happy Drive 
Enhancement« aus der 1050- 
Diskettenstation herausholt. 

as wäre ein Computer wie 
der Atari XL ohne eine Dis¬ 
kettenstation? Doch Disket- 
ten-Operationen bezahlt der Anwen¬ 
der oft mit langen Wartezeiten und 
umständlichem Kopierschutz. Diese 
Tatsache ließ die amerikanische Firma 
Happy Computers schon im Jahre 
1982 auf den Gedanken kommen, ein 
Hardware-Utility auf den Markt zu 
bringen, mit der diese Nachteile für 
den Benutzer aufgehoben werden. 
Die Entwickler nannten ihre Erweite¬ 
rung »Happy Drive Enhancement«. 
Diese Idee war von so durchschlagen¬ 
dem Erfolg, daß sie in Deutschland 
einige Nachahmer wie »Speedy 1050« 
oder »Turbo-Modul« nach sich zog. 
Doch an das Original reichten diese 
Nachfolger nicht heran. Ein Grund für 
uns, den »Ur-Speeder« etwas genauer 
anzusehen. 


Kurze Ladezeiten 


Das Happy Drive Enhancement, 
das den Platz des ROM und den des 
Prozessors in der Diskettenstation ein¬ 
nimmt, versetzt seinen Besitzer in die 
Lage, den Controller direkt zu pro¬ 
grammieren und damit die Disketten- 
Station vielseitiger zu handhaben, als 
es normalerweise möglich ist. 

Auf der aufzusteckenden Platine 
sind neben ein paar Logikbausteinen 
ein 8-KByte-EPROM, ein 8-KByte- 
RAM sowie eine 6502 CPU unterge¬ 
bracht - ein vollständiger kleiner Com¬ 
puter also. In dem RAM werden nicht 
nur die Übergabeparameter des Com¬ 
puters gespeichert, sondern es dient 
auch dazu, immer einen Track voll¬ 
ständig einzulesen. Dadurch wird eine 
geringere Belastung der Mechanik 
und vor allem eine erhebliche 
Geschwindigkeitssteigerung erreicht, 
da nachfolgende Sektoren schon zur 
Verfügung stehen und nicht mehr 
extra gelesen werden müssen. 

Ein vom Anwender benutztes nor¬ 
males DOS merkt nichts von diesen 
Vorgängen, da sie alle von dem Happy 
Drive Enhancement gesteuert wer¬ 
den. Weiterhin ist es möglich, eigene 
Programme im Happy Drive Enhance¬ 
ment laufen zu lassen und so die Dis¬ 
kettenstation fest im Griff zu haben. 


Der Benutzer kann seine Disketten 
mit dem Enhancement für die Atari 
1050 auf Double-Density formatieren, 
was ihm dann 176 KByte auf jeder Dis¬ 
kettenseite zur Verfügung stellt. Den 
Besitzern eines alten Laufwerks, der 
Atari 810, steht die doppelte Schreib¬ 
dichte nicht zur Verfügung, da der dort 
eingebaute Controller dieses Format 
nicht erzeugen und verwalten kann. 
Wegen der unterschiedlichen 
Controller-Typen (bei der Atari 810 ist 
es der 1771, bei der Atari 1050 der 
2793, beide von Western Digital) gibt 
es zwei verschiedene Happy Drive 
Enhancements, die Software ist 
jedoch identisch. 

Ein weiterer Vorteil des Speeders: 
Der Benutzer ist nicht mehr auf die 
Übertragungsrate von 19200 Baud 
(übertragene Bits pro Sekunde) zwi¬ 
schen Computer und Diskettenstation 
angewiesen, sondern kann mit be¬ 
stimmten Software-Einstellungen bis 
zu 70000 Baud erreichen. Damit wird 
aus dem monotonen Piep-Piep beim 
Laden und Speichern ein hohes 
Pfeifen. 

Verzichtet man hierauf, kann man 
selbst in der normalen Betriebsart die 
Geschwindigkeit steigern, indem man 
ein DOS erzeugt, bei dem Verify-Write 
ausgeschaltet ist (mit POKE 1913,80). 
Das Happy Drive Enhancement führt 
diese Kontrolle schon selbständig 
durch. 

Zusätzlich zu der Platine werden 
das »Happy Warp Speed Menü« und 
das »Warp Speed Dos« mitgeliefert. 


das mit dem Atari Dos 2.0 zusammen¬ 
arbeitet. 

Das Warp-Speed-Menü erscheint 
mittlerweile in der Version 7.1, die dem 
Benutzer neun Menüpunkte zur Verfü¬ 
gung stellt: 

Drive Options: 

Hier kann der Anwender 

- sein Laufwerk wieder zu einem 
gewöhnlichen Atari-Diskettenlaufwerk 
ohne Beschleuniger machen, damit 
manche heiklen Original-Programme 
laufen. Sämtliche Funktionen des 
Happy Drive Enhancement sind dann 
abgeschaltet. Nur nach einem Aus- 
und wieder Anschalten wird das Atari- 
Laufwerk wieder »fröhlich«. 

- das Happy Drive Enhancement 
initialisieren, um vorher eingestelie 
Optionen wieder aufzuheben. 

- den »Drive-Select« außer Kraft 
setzen und Laufwerk 1 beispielsweise 
zu Laufwerk 2 machen. 

-die Zeit bestimmen, in der das Lauf¬ 
werk nach dem letzten Zugriff noch 
laufen soll, um bei einem eventuell 
erneuten Zugriff die Anlaufzeit des 
Motors zu sparen. 

- auf schnelles Schreiben schalten. 

- den U.S. Emulator installieren. 
Kopierprogramme beispielsweise, die 
diesen ansprechen, schreiben und 
lesen dann um ein Vielfaches schnel¬ 
ler als ohne den Emulator. 

- Laufwerk auf Write-Enable stellen. 

- Laufwerk auf Write-Protect stellen. 
Diagnostic: 

Hier wird das »Happy Enhancement 
Diagnostic«-Programm nachgeladen. 





























Es folgt eine Auswahl von Test- 
Funktionen: RAM und ROM der Erwei¬ 
terungen werden genauso überprüft 
wie Ubertragungsrate, Anzahl der 
Umdrehungen pro Minute, Kopfposi¬ 
tionierung, Schreib- und Lesesicher¬ 
heit und die zusätzliche Hardware- 
Option. 

Sector Copier: 

Ein Diskkopierer wird nachgeladen, 
mit dem Atari-Disketten auf sehr kom¬ 
fortable Art und Weise dupliziert wer¬ 
den können. So erlaubt es die Erweite¬ 
rung hier, Start-und Endsektor des zu 
kopierenden Diskettenbereichs einzu¬ 
geben. 

Happy Backup: 

Der Diskettenkopierer ist das Herz¬ 
stück dieses Menüs. Dieses nachzu¬ 
ladende Programm kann allein oder 
mit Hilfe sogenannter »PDP-Files« fast 
alle kopiergeschützten Single- 
Density-Disketten duplizieren. PDP- 
kopierte Disketten laufen dann nur mit 
eingebauter Happy-Erweiterung. 
Happy Compacter: 

Nach dem Nachladen stö8t der 
Anwender wieder in ein Menü, in dem 
es ihm möglich ist, mehrere Boot- 
Disketten auf einer zu sammeln. 
Tracks, die ein Programm nicht nutzt, 
werden für ein anderes freigehalten. 


Multi Drive: 

Bei diesem Kopierprogramm wer¬ 
den zwei Happy-Enhancement- 
Laufwerke benötigt. Dadurch entfällt 
das nervende dreimalige Auswech¬ 
seln von Quell- und Zieldisketten. 
Enable Tracer: 

Der Tracer wird hier aktiviert. Jeden 
weiteren Track, der beim Diskettenzu¬ 
griff angesprochen wird, merkt sich 
das Happy Drive Enhancement, und 
dieser kann nach erneutem Laden des 
»Happy Warp Speed Menü« abgefragt 
werden. Die Diskettenstation darf zwi¬ 
schendurch nicht ausgeschaltet wer¬ 
den, da sonst kein Tracen möglich 
wäre. 

Display Trace: 

Nur möglich, wenn vorher die Funk¬ 
tion »Enable Tracer« angewählt wurde. 
Es werden die Tracks 0 bis 39 ange¬ 
zeigt, die beim Booten benutzt wur¬ 
den. Da beim Booten immer der Sek¬ 
tor 1 (Track 0) gelesen wird, und das 
Happy Warp Speed Menü nur Track 0 
benutzt, ist das Aufzähten der gelese¬ 
nen Tracks dem der vorherigen Boot- 
Diskette gleich. Deshalb ist das Happy 
Warp Speed Menü als Boot-Pro¬ 
gramm realisiert, als File könnte es 
auch noch andere Tracks belegen und 
so das Ergebnis verfälschen. 


Insgesamt hinterläßt diese erste 
und vielseitigste Erweiterung einen 
hervorragenden Eindruck. Denn 
obwohl es andere und kostengünsti¬ 
gere Zusätze ähnlicher Art gibt, ist 
Happy Drive Enhancement das aus- 
gereifteste Produkt. Außerdem unter¬ 
stützen einige amerikanische und 
deutsche Softwarehersteller diesen 
Speeder mit ihren Programmen. 

Mit diesen Programmen ist es mög¬ 
lich, sich ein völlig eigenes Format mit 
eigenem Kopierschutz zu erstellen. 
Mit der Atari 1050 kann man dann zum 
Beispiel ein Format in Medium- 
Density erzeugen, das jede 1050 ohne 
Probleme liest. Aber noch nicht ein¬ 
mal das Happy Drive könnte diese Dis¬ 
kette kopieren. 

Das Happy-Drive-Enhancement ist 
für 149,95 Dollar plus 10 Dollar Ver¬ 
sandkosten bei der Firma Happy- 
Computers, P.O. Box 1268, Morgan 
Hill, CA 95037 erhältlich. 

Wer sich vor einer Bestellung in den 
USA scheut, kann sich an einen Atari- 
Händier wenden, muß dann aber 
mehr Geld ausgeben. Wie Sie eine 
Bestellung direkt in die USA richten, 
haben wir ausführlich in der Happy- 
Computer Ausgabe 7/87 beschrieben. 

(Kjersten Waldheim/jg) 


ST RAINT iir die AflRI ST 

Das ideale Mal- und Zeichenprogramm 

für Ihren ATARI ST. 


ST PAJNT ist ein. pixelorientiertes Grafik-Programm für den ambitio¬ 
nierten Computerzeichner, Die Vielfalt der Zeichenfunktionsn und 
die bequeme Bedienung mit Maus und Tastatur über die sinnvoll 
aufgebaute GEM-Benutzeroberfläche erlauben auch dem ungeüb¬ 
ten Zeichner, professionelle Gebrauchs-Grafiken auf dem Atari ST 
und einem leistungsfähigen Matrixdrucker zu produzieren. 

leistungsmerkmale: 

• komfortable GEM-Benutzeroberfläche mit Pulbdown-Menüs, 
Dialogboxen, GEM-henster und Funkfionstastertleiste 

• taden und Speichern im Doodle- r Neochnom- und Degos-Format, 
eigenes Format für »BIG«- und »FATä-Bilder 

• einfache Einbindung von Texten in verschiedenen Grö&en und 
Textattributen, gleichzeitige Darstellung mehrerer ladbarer 
GEM-Fonis 

• edilierbars Druckertreiber zur Ansteuerung vieler Matrixdrucker 

• fertige Treiber für Epson-FX 80 und Kompatible sowie NEC P6 auf 
der Programmdiskette und vieles mehr. 


Dieses Morkt&T&chnik-SoftwaiepEödukt erhalten Sie in 
den Facbobt'eiiunqen der Warenhäuser, im Versandhan¬ 
del, in Computer-Tachgeschähen oder im Buchhandel. 
Wenn Sie direkt beim Vertag besäten wollen: gegen 
Sfonauslcasse durch Verrechnungsscheck oder mit der 
abgodruckten Zählkarte, 


Maritf&Technik 
ATARI ST-Softvrore 


Hardwa re-Anforderu ng: 

Atari ST mit mindestens 512 Kbyte RAM, Monochrom-Monitor 
Atari SM 124, einseitiges oder zweiseitiges Diskettenlaufwerk, 
Matrixdrucker* 

Beste H-Nr. 51633 

Für nur DM 99/-* 

* in kl. MwSf. Unverbindliche Pieisemptehlung 



Markt&Technik 

_ Zeitschriften - B ü cher 

Software - Schulung 



Markt&Technik Verlag AG, Bvchverfog, Ha ns-Pinsel-Straße 2, 8013 Haar bei München, Telefon (089} 4613-0 
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Sonderheft 11: 
Spiele-Tests 


Sonderheft 03/85: 
Spiele-Tests 


COICI E 
aP ur IE Hi E 1 


IST ANGESAGT! 


Stories 


Trends 


Spiele-Tips 


A chtung Spiele-Fans: Hier kommen insgesamt mehr als dreihundert 
Seiten voll mit Spiele-Tests, Marktübersichten, Grafik- und Musikpro¬ 
grammen. Zusammen ergeben Sie ein Super-Nachschlagewerk: Geschicklich¬ 
keits-Spiele, Action-Spiele, Strategiespiele, Sport-Spiele ... 
vom C64 bis zum PC. 


Nutzen Sie die Besfellmög- 
lichkeif der Happy-Compu- 
ter-Sonderhefte mit der 
eingebetteten Zählkarte 
nach der Seite 98 in dieser 
Ausgabe. 
































Der XL treibt's 
ganz schön bunt 


Mit ein bißchen Computer¬ 
kenntnis, ein paar Assembler- 
Zeilen und einer guten Idee las¬ 
sen sich aus den XL/XE- 
Computern viele Farben gleich¬ 
zeitig herauskitzeln. 

^■ine der Stärken des Atari XL- 
Computers ist seine Farbenviel- 
falt. Er kann 16 Farben in 8 ver¬ 
schiedenen Helligkeiten darstellen, 
was zusammen 128 verschiedene Far¬ 
ben ergibt. Angesichts dieser Farben¬ 
vielfalt ist man begeistert, doch nach 
kurzer Zeit kommt die Ernüchterung: 
128 Farbschattierungen stehen zwar 
zur Auswahl, in den einzelnen Grafik¬ 
stufen sind aber nur maximal 4, in den 
Textstufen maximal 5 Farben gleich¬ 
zeitig darstellbar. Es gibt zwar die 
Möglichkeit, über einen Dispfay-List- 
Interrupt in jeder Bildschirmzeile die 
Farben umzuschalten, ln vertikaler 
Richtung sind so beliebig viele Farben 
darstellbar, trotzdem hat man in einer 
horizontalen Zeile immer noch nur 
4 beziehungsweise 5 Farben zur Ver¬ 
fügung. 

Beim Atari gibt es außerdem 3 wei¬ 
tere Grafikstufen, in denen ein Bild¬ 
punkt eine Zeile hoch und vier Punkte 
breit ist. In der Grafikstufe 9 sind 16 
Graustufen einer Farbe darstellbar 
und in Grafikstufe 11 sind es 16 Farben 
einer Helligkeit. Bei Grafikstufe 10 sind 
7 Farben frei definierbar. 

Um 256 Farben gleichzeitig auf dem 
Bildschirm darstellen zu können, ist 
folgende Überlegung notwendig: Das 
Fernseh- oder Monitorbild wird 50mal 
in der Sekunde neu gezeichnet. Wenn 
jetzt zwischen einem Bild mit Grau¬ 
werten und einem Bild mit Farbwerten 
im Takt des Bildschirmaufbaus hin- 
und hergeschaitet wird, kann das 
Auge des Betrachters die Bilder nicht 
mehr auseinanderhalten und mischt 
die Grau- und die Farbwerte zu einer 
Farbe zusammen. Auf diese Weise 
lassen sich aus 16 Grauwerten und 16 
Farbwerten 256 Farben zurechtmi¬ 
schen. 

Das Verfahren hat jedoch einige 
Nachteile, die hier nicht verschwiegen 
werden sollen. Zum ersten tritt durch 
das rasche Hin- und Herschalten zwi¬ 
schen den beiden Bildern ein unange¬ 
nehmer Nebeneffekt auf: Das Bild 
flackert sehr stark. Dieser Effekt trat 


auch bei einigen alten Adventurespie- 
len von Scott Adams auf. Nach den 
ersten drei Spielen sah er jedoch ein, 
daß diese Art der Bilderzeugung viel 
zu anstrengend für den Betrachter ist. 
Ab dem vierten Spiel verwendete er 
dann wieder die normale Art der Bii- 
derzeugung. Ohne Bedeutung ist das 
Flackern jedoch, wenn man Bilder 
zeichnet und diese dann vom Bild¬ 
schirm abfotografiert (siehe Bilder in 
diesem Beitrag und in der Inhaltsan¬ 
gabe dieser Ausgabe). Zum zweiten 
lassen sich bei diesem Verfahren, 
bedingt durch die Auflösung der bei¬ 
den verwendeten Grafikstufen, hori¬ 
zontal nur 80 Punkte darstellen. Und 
zum dritten muß man einen nicht uner¬ 
heblichen programmtechnischen Auf¬ 
wand betreiben, um das Bild darzu¬ 
stellen. Im Computer muß nämlich ein 
Programm fest installiert sein, das die 


Bilder umschaltet. Zusätzlich nehmen 
diese Programmroutinen sowie die 
beiden Bilder Speicherplatz weg. 

Dem Flackern läßt sich mit einem 
Kniff beikommen: Wie bei einem Fern¬ 
sehbild verschiebt man jedes zweite 
übertragene Bild gegenüber dem 
ersten um eine Zeile. In jeder geraden 
Zeile werden dann die Grauwerte dar- 
gestelit und in jeder ungeraden Zeile 
die Farbwerte. 

Damit man ein 256-Farben-Bild aus¬ 
geben kann, braucht man ein Pro¬ 
gramm, daß die Bilder hin- und her¬ 
schaltet, sowie zwischen Grau- und 
Farbwerten wechselt. Zusätzlich 
braucht man zwei Display Lists, die 
das Farbbild gegenüber dem Hellig¬ 
keitsbild um eine Zeile verschieben. 
Das Listing »COL256.BIN« stellt die¬ 
ses Programm dar. Das Programm 
steht im Speicher ab Adresse 1536 














Mit »Paint256« erzeugtes, digitalisiertes Bild 


($600) und belegt 104 Byte. Es ist so 
geschrieben, daß es unter Turbo- 
Basic mit dem Befehl »BLOAD 
" D:COL256.BIN " « geladen wird. Das 
Programm »FARB256« enthält alle 
Programmschritte, die nötig sind, um 
einen 256-Farben-Bildschirm zu 
erzeugen. Am besten speichern Sie 
das Programm mit »LIST "D:FARB 
256.TXT"« auf Ihre Diskette, damit Sie 
es mit dem Befehl »ENTER« in eigene 
Programme einbinden können. Das 
Programm springt man unter Turbo- 

Basic einfach mit »EXEC FARB256_ 

INIT« an, worauf die Display-Lists 
installiert und das COL256.BIN- 
Programm geladen werden. 

Dann schaltet man die Grafik mit fol¬ 
gendem Befehl an: 

D=USR($0600,GTIAMode) 

Für die Variable »D« läßt sich jede 
andere im Programm nicht benützte 
Variable einsetzen. Sie wird von der 
Funktion zwar nicht verwendet, muß 
aber trotzdem angegeben werden, da 
der »USR«-ßefehl eine Variable erwar¬ 
tet. Solange keine Player-Missile- 
Grafik verwendet wird, setzt man für 
GTIAMode normalerweise eine 64 ein, 
was Grafikmode 9 entspricht. Anson¬ 
sten schauen Sie bitte im Beitrag über 
die Hardwareregister der Atari 8-Bit- 
Computer unter dem Register 


»PRIOR« nach, welche Werte Sie ein¬ 
setzen müssen. Nachdem die Grafik 
nun aktiviert ist, muß der Bildschirm¬ 
speicher gegen unbeabsichtigtes 
Überschreiben durch ein Basic- 
Programm geschützt werden. Dazu 
verwendet man folgende Befehls¬ 
folge: 

P0KE 106,120 


Will man jetzt Grafiken zeichnen, so 
muß die gleiche Grafik in beiden Bil¬ 
dern gezeichnet werden, einmal mit 
dem Helligkeitsbild und das zweite 
Mal mit dem Farbbild. Dazu legt man 
erst einmal die Farbe und die Hellig¬ 
keit fest. So ergibt: 

COL = 3 
LUM = 6 


NET-IAM-Disk für ATARI ST 

Die residente RAM-Disk zur Optimierung 
der Zugriffszeit unter GEM-Desktop für den ATARI ST. 


Die NET-RAM-Disk ist eine Utility zur Optimierung der 
Speichermedien auf dem ATARI ST. Durch die Benutzung 
dieses Programms wird Ihr System um eine Disketfensta- 
tion erweitert. Sie besitzt alle Funktionen einer normalen 
Floppystation, befindet sich im Hauptspeicher des 
Rechners und ist voll im GEM-Desktop eingebunden. 
Nach einem Reset des Rechners bleiben die Daten auf 
der RAM-Disk vollständig erhalten. 

Die wesentlich kürzeren Zugriffszeiten ermög¬ 
lichen Ihnen ein effizienteres Arbeiten mit dem 
AIARI ST. Die RAM-Disk belegt einen freien Teil des 
Arbeitsspeichers. Das Fehlen einer Lauiwerkmechantk 
steigert die Verarbeitungsgeschwindigkeit erheblich. Die 
Verwendung des Druckerspoolers ermöglicht Ihnen, 
während des Ausdrucks mit Ihrem Programm Weiter¬ 
arbeiten zu können. 

NET-RAM-Disk ist lauffähig mit ollen Programmen, die 
den Bildschirmspercher nicht verändern. 


Markt&Techmk-Prooukte erhol Jen Sie in den Fachabteilungen 
der Warenhäuser, im Versandhandel, in Computer-Fachgeschäften 
oder bei Ihrem Buchhändler. 
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ein dunkles Rot. Dann teilt man dem 
Computer über die Speicherstelle 88 
mit, wo sein Bildschirmspeicher steht. 
Alle Grafikbefehle beziehen sich jetzt 
auf diesen Bildschirmspeicher. Ais 
erstes zeichnet man das Helligkeits¬ 
bild. 

DPOKE 88,AH 
PÜKE 87,9 

Anschließend setzt man den Heiiig- 
keitswert und führt den Grafikbefeh! 
aus. 

COLOR LUM 

PLOT 0;0:DRAWTO 79,191 
Dann setzt man den Punkt. Die glei¬ 
che Prozedur wiederholt man mit dem 
Farbwert. 

DPOKE 88,AF 
COLOR COL 

PLOT 0,0:DRAWTO 79,191 

Auf diese Weise lassen sich in jedes 
Programm Grafiken mit 256 Farben 
einbauen. Da unter Basic mit instal¬ 
lierter Grafik nur noch rund 16 KByte 
Speicher zur Verfügung stehen, sollte 
man Programme unbedingt compilie- 
ren. Dadurch gewinnt man zusätzliche 
4 KByte Speicher. Bevor man in ir¬ 
gendeiner Weise den seriellen Port 
benutzt, sollte man die Grafik wieder 
abschalten. Dies geschieht mit dem 
Befehl: 

D=USR{$0600,0) 

Ansonsten hat der Computer nicht 
mehr genügend Rechenzeit zur Verfü¬ 
gung und hängt sich auf. Als Beispiel 
haben wir auf Seite 35 ein Programm 
abgedruckt, das alle 256 Farben 
gleichzeitig auf den Bildschirm bringt. 
Davon läßt sich auch sehr schön der 
Aufbau eines 256-Farben-Programms 
zeigen. 


Nach der Arbeit 
kommt das 
Vergnügen 


Zusätzlich zu den Routinen, die die 
256 Farben ermöglichen, haben wir 
zwei Anwenderprogramme abge¬ 
druckt, die diese Routinen benutzen. 
Zum einen haben wir ein Malpro¬ 
gramm beigefügt. Es ist in Turbo-Basic 
geschrieben und benötigt die beiden 
Programme COL256.BIN sowie 
»DLST.256«. Diese Programme müs¬ 
sen sich zusammen mit »PAINT256« 
auf der gleichen Diskette befinden. 

PAINT256 stellt verschiedene Funk¬ 
tionen zur Verfügung. Diese präsen¬ 
tieren sich nach dem Starten des Pro¬ 
gramms in der obersten Bildschirm¬ 
zeile. Darunter folgen zwei schmale 
Zeilen mit 16 Färb- und 16 Helligkeits¬ 
werten, und unterdiesen befindet sich 
die Zeichenfläche, auf der horizontal 


80 und vertikal 192 Punkte darstellbar 
sind. Mit dem Pfeil, den man mit einem 
Joystick in Port 1 'des Computers 
bewegt, werden dann die einzelnen 
Funktionen ausgewählt. Um eine 
Farbe festzulegen, fährt man mit dem 
Pfeil auf den entsprechenden Farb- 
oder Helligkeitsbalken und drückt den 
Feuerknopf. Zusätzlich läßt sich die 
Farbe mit den Pfeiltasten auf der 
Tastatur bestimmen. Die Aufwärts-/ 
Abwärts-Pfeiie verändern die Farbe 
und die Links-/Rechts-Pfeile bestim¬ 
men die Helligkeit einer Farbe. Die 
Nummer der ausgewählten Farbe wird 
in der zweiten Menüzeile über der Zei- 
chenfläche bei »Color No.:« angezeigt. 


Mit dem Pfeil wählt man auch die 
einzelnen Zeichenfunktionen aus. 
Eine gewählte Funktion wird dann voll¬ 
ständig invers dargestellt. Folgende 
Funktionen stehen zur Verfügung, 
wobei sich fast alle Funktionen mit 
< ESC> abbrechen lassen, wenn sie 
einmal versehentlich angewählt wur¬ 
den. 

Pit (Plot): Wenn der Knopf gedrückt 
ist, setzt das Programm an der ent¬ 
sprechenden Stelle auf dem Bild¬ 
schirm einen Punkt. 

Lne (Line) zieht eine Linie von dem 
Punkt, an dem das erstemal der Knopf 
betätigt wurde, zu dem Punkt des 
zweiten Knopfdrucks. 

Box (Box): Der erste Knopfdruck 
legt den Eckpunkt eines Kastens fest. 
Wird dann der Pfeil bewegt, so wird 
von dem Eckpunktzu der neuen Pfeil¬ 
position ein Kasten gezogen. Beim 
zweiten Knopfdruck wird der Kasten 
gezeichnet. 

Zrc (Circle): Beim ersten Knopf¬ 
druck wird der Mittelpunkt eines Krei¬ 
ses bestimmt. Beim zweiten wird ein 


Kreis mit dem Radius vom Abstand 
des Mittelpunkts zur Position des 
Pfeils gezeichnet. 

Txt(Text): Nach dem der Knopf betä¬ 
tigt wurde, läßt sich ein Text mit maxi¬ 
mal 10 Zeichen Länge eingeben. Mit 

< BACKSPACE > wird eine fehler¬ 
hafte Eingabe korrigiert. <ESC> 
löscht den gesamten Text. Mit 

< RETURN > wird der Text übernom¬ 
men und mit dem Joystick positioniert. 
Durch Knopfdruck wird der Text in das 
Bild eingefügt. 

Sei (Scale): Mit dieser Funktion wird 
der Ausschnitt eines Bildes vergrößert 
oder verkleinert. Dabei dürfen sich die 
Bereiche auch überlappen. Da der 


Computer sehr viel Rechenzeit ver¬ 
braucht, wenn er einen Bildschir¬ 
mausschnitt transformiert, wird zwi¬ 
schendurch der Bildschirm ausge¬ 
schaltet. Durch diesen Trick hat der 
Computer mehr Zeit zur Verfügung. 

Fil (Fill): Eine schwarze Fläche wird 
mit der gewählten Farbe ausgefüllt. 

Cut (Cut): Diese Funktion schneidet 
einen rechteckigen Ausschnitt aus 
und fügt ihn an anderer Stelle wieder 
ein. 

Ray (Rays): Ausgehend von einem 
gemeinsamen Punkt werden Linien 
gezogen. Indem man im Menü eine 
andere Funktion auswählt, beendet 
man diese Funktion. 

Cln (continue Lines): Es werden 
fortlaufende Linien gezogen. Der End¬ 
punkt einer Linie ist gleichzeitig der 
Startpunkt der nächsten Linie. Auch 
diese Funktion wird erst durch eine 
andere Funktion beendet. 

Ers (Erase): Der Pfeil verwandelt 
sich in ein schraffiertes Zeichen, das 
eine Art Radiergummi darstellt. Es 
löscht Flächen aus einem Bild. 
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Software 


Superirase 


«dA« r 


<m 


relationale Datenbank-System 

für im Äfari ST 


Superbase vereint als erstes Pro¬ 
gramm einer neuen Generation von 
Datenbank-Systemen sowohl eine 
neuartige, äußerst he nutze rf reu nd- 
Ivche Bedienung mit Pull-dowir» 
Menüs, Fenstern und Maussteuerung 
als auch die enorme Leistungs¬ 
fähigkeit einer relationalen Datei¬ 
verwaltung. 

Einfacher Datenbank-Aufbau 

Mit den le ec htverständ liehen Pull-down- 
Menüs und Kontra!Heldern legen Sie in Minu¬ 
ten eine komplette Datenbank an. Sie können 
eine bereits festgelegte Struktur jederzeit 
andern, ohne Ihre Daten zu zerstören. 

Verwaltung der Daten 

Superbase zeigt Ihre Daten auf verschiedene 
Arten an, beispielsweise als Tabelle oder als 
Formular. Sind Index und Felder selektiert, 
können Sie Ihre Daten wie bei einem Video¬ 
recorder anzei gen lassen. Schneller Vorlauf, 
Rücklauf, Pause und Stop - ein Recorder ist 
nicht einfacher zu bedienen. Ein einzigartiges 
Filtersystem wählt beliebige Datenkategorien 
aus, mit denen Sie dann arbeiten können. 


Verarbeitung ein, oder bilden Sie aus verschie¬ 
denen Dateien eine neue Datenbank! 

Datenbank mit Bildern 

Superbase bietet neben den gängigen 
Datenbank-Funktionen die Möglichkeit, Bilder 
und Grafiken darzustellen und zu verwalten. 
Einzigartigen Grafik-Daten banken oder Dia- 
Shows steht also nichts im Wege. 

Wer braucht Superbase? 

Die Anwendungsmöglichkeiten sind nahezu 
unbegrenzt. 


Hier einige Beispiele: 


Geschäftliches 

Professionelle 

Anwendungen 

Lag erbestand 

Fakturierung 

Registratur 

Versandlisten 

Verwaltung 

Adressen 

Design 

Fotografie 

Journalismus 

Sammlungen 

Forschung 

Ausbildung 


Leistungsumfang 

Die Software: • bis zu 16 Millionen 
Datensätze pro Datei • maximal 999 Indizes 
pro Datei • Speicherkapazität pro Datei, 
Anzahl der geöffneten Dateien, Anzahl der 
Dateien und Anzahl der Felder pro Datensatz: 
abhängig von der Disketten- bzw. Festplatten¬ 
kapazität. 

Die Daten: • Text, Daten, numerische 
Felder und externe Dateien • Überprüfung 
bei der Eingabe • Formelfelder * Kalender 
der Jahre 1-9999, verschiedene Datums¬ 
formen • verschiedene Zahlenformate bei 
ISstelliger Genauigkeit • Datenschutz per 
Paßwort 

Die Ausgaben: • das Programm 
beherrscht einen flexiblen Etikettendruck und 
produziert übersichtliche Listen mit dem 
Reportgenerator • bis zu 255 Spalten 
O mit Titel, Datum und Seitenzahl • Daten¬ 
satz-Zähler, Durchschnitt, Zwischen- und End¬ 
ergebnis • Ausgabe von mehreren Dateien 
auf Bildschirm, Drucker, Diskette oder neuer 
Datei • mehrspaltiger Eli ketten druck mit 
variablem Format • Speicherung der Aus¬ 
gabe- und Abfrage-Formate zur späteren Ver¬ 
wendung • vielfältige Sortierkriterien 


Die Stärken von Superbase 

Das Festlegen von Übersichten und zusam¬ 
menhängende Abfragen über mehrere ver¬ 
knüpfte Dateien sind auch bei verschiedenen 
Sortterkriterien kein Problem. Daten anderer 
Datenbanken oder Anwenderprogramme im 
ASCIi-Format lassen sich ebenfalls problem¬ 
los verarbeiten. Bänden Sie Daten in Ihre Text- 
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Mandelbrot-Ausschnitte 

Realteil 

Imaginärteil 

Seitenlange 

Ausschnitt 

-2 

-1.25 

2.5 

Gesamtansicht 

-0.225 

-1.125 

0.25 

Zweig 

-0.74591 

0.11196 

1.43E-3 

Spirale 

-0.1765625 

-1.0484375 

0.03125 

kleines Mandelbrot 


Dsk (Disk): Es erscheint ein neues 

Menü, über das verschiedene Disket- 

tenfunktionen ausgeführt werden: 

- Save (Save): Das Bild wird auf der 
Diskette gespeichert, wobei ein Bild 
123 Sektoren belegt. 

- Load (Load): Sämtliche Files mit 
dem Zusatz ».PIC« werden in der 
obersten Zeile angezeigt. Ein Knopf¬ 
druck lädt das Bild. Indem man den 
Joystick bewegt, wird das nächste 
File angezeigt. 

- Frmt (Format): Formatiert die Dis¬ 
kette in Laufwerk 1. Dazu muß die 
Taste <Y> gedrückt werden. Alle 
anderen Tasten brechen die Funk¬ 
tion sofort ab. 

- Dir (Directory): Zeigt sämtliche Files 
mit dem Zusatz ».PIC« an. Durch 
Joystickbewegung wird das nächste 
File aufgeführt, Knopfdruck beendet 
die Funktion. 

- EDir (extended Directory): Dies 
funktioniert wie die Directory- 
Funktion. Im Gegensatz dazu wer¬ 
den jedoch alle Files ausgegeben. 

- Bye (Bye): Das Programm kehrt wie¬ 
der ins Hauptmenü zurück. 

- Quit (Quit): Das Programm wird 
beendet, und man befindet sich wie¬ 
der im Turbo-Basic. 

New (New): Nach Drücken der Taste 
<Y> wird das Bild gelöscht. 


Der Regenbogen 
über dem 
Mcmdelbrot 


Das zweite Programm berechnet 
die gute alte Mandelbrotmenge, bei 
dieser Version allerdings in 256 Far¬ 
ben. Das Prinzip der Mandelbrotbe¬ 
rechnung soll hier nicht weiter erläu¬ 
tert werden. Gerade in der letzten Zeit 
haben sich wissenschaftliche Maga¬ 
zine und Computerzeitschriften mit 
Beiträgen über die Mandelbrotmenge 
geradezu überschlagen, so daß die 
Berechnung der Bilder bekannt sein 
sollte. Wer trotzdem wissen möchte, 
wie Mandel brat funktioniert, und sich 
allgemein für Fractals interessiert, 
sollte sich das Buch »The Beauty of 
Fractals« von H.-O. Pleitgen und P. H. 
Richter anschauen. Es ist zwar in eng¬ 
lischer Sprache verfaßt, bietet aber 


soviel Stoff zu diesem Thema, daß es 
fast als »Bibel« der Mandelbrotmenge 
und deren Nebenarten bezeichnet 
werden kann. Nebenbei enthält es 
viele phantastische Bilder. Das Buch 
ist im Springer-Verlag Heidelberg 
erschienen und kostet 78 Mark. 

Zurück zum Mandelbrotprogramm. 
Gerade bei Bildern aus der Mandel¬ 
brotmenge sind viele Farben wichtig, 
da die Bilder sonsteinen Großteil ihres 
Reizes verlieren. Auch dieses Pro¬ 
gramm ist in Turbo-Basic geschrieben 
und sollte mit dem Prüfsummereinge¬ 
geben werden. Nach dem Starten 
meldet sich das Programm mit folgen¬ 
dem Menü: 

Laden Bild: Das Programm ver¬ 
langt eine dreistellige Nummer des zu 
ladenden Bildes. Anschließend wird 
das Bild mit dem Dateinamen 
»APFELXXX.PIC« geladen. 

Speicher Bild: Wie bei »Laden 
Bild«, nur daß bei dieser das Bild vom 
Speicher auf Diskette übertragen 
wird. 

Berechne Bild: Nach Eingabe der 
Werte für die untere linke Ecke, der 
Seitenlänge und der Berechnungs¬ 
tiefe beginnt das Programm einen 
Ausschnitt aus der Mandelbrotmenge 
zu berechnen. Dieser Ausschnitt ist 
wie bei den Originalprogrammen auf 
Großcomputern quadratisch. Die 
Berechnungstiefe sollte größer oder 
gleich 256 sein, da sonst nicht alle dar¬ 
stellbaren Farben ausgenutzt werden. 

Ausschnitt vom Bild: Diese Funk¬ 
tion läßt sich nur aufrufen, wenn sich 
ein Bild im Speicher des Computers 
befindet. Das Programm schaltet auf 
das Bild um, und es erscheinen zwei 
Rahmen auf dem Bildschirm, die die 
rechte obere sowie die linke untere 
Ecke eines neu zu berechnenden Bild¬ 
ausschnitts repräsentieren. Der Aus¬ 
schnittwird mit dem Joystick über das 
Bild bewegt. Ein Druck auf den Joy¬ 
stickknopf verändert die Ausschnitts¬ 
größe. Bei Druck auf die < START >- 
Taste fragt das Programm nach der 
Rechentiefe. Anschließend wird der 
neue Mandelbrotausschnitt berech¬ 
net. 

Während die Berechnung des Bil¬ 
des erfolgt, läßt sich der Bildschirm mit 
der < START > -Taste abschalten. 
Dadurch arbeitet der Computer dop¬ 


pelt bis dreimal so schnell. Mit der 
<SELECT>-Taste wird der Bild¬ 
schirm wieder angeschaltet. 

Directory: Das Inhaltsverzeichnis 
des Diskettenlaufwerks wird ange¬ 
zeigt. 

<SELECT>-Taste: Das berech¬ 
nete Bild erscheint. Falls kein Bild im 
Speicher ist, bleibt der Bildschirm 
schwarz. 

<START>-Taste: Es wird wieder 
zum Menü zurückgeschaltet. 

Im unteren Bereich des Bildschirms 
werden die Bildparameterdes berech¬ 
neten beziehungsweise geladenen 
Bildes angezeigt. Ein Bild nimmt auf 
der Diskette zwischen 123 und 124 
Sektoren in Anspruch, je nachdem, 
wie viele Steilen die Bildwerte aufwei¬ 
sen. Damit Sie, ohne viel in der Man¬ 
delbrotmenge herumzusuchen, Bil¬ 
der mit dem Programm »APFEL256« 
berechnen können, haben wir für Sie 
Werte interessanter Ausschnitte zu¬ 
sammengestellt. 

Vielleicht wissen Sie weitere inter¬ 
essante Anwendungen für den 256- 
Farben-Zusatz. Schreiben Sie uns 
doch Ihre Vorschläge für weitere 
Anwendungen. Wir freuen uns über 
jede Anregung. 

(Stephan Gerie/hf) 


Steckbrief 

Programm: 

Paint256 

Sprache: 

Turbo-Basic 

Eingabehilfe: 

Prüfsummer 

Datenträger: 

Diskette 


Steckbrief 

Programm: 

Apfel256 

Sprache: 

Turbo-Basic 

Eingabehilfe: 

Prüfsummer 

Datenträger: 

Diskette 


Programmname : 
Länge : 

: COL256.BIN 
.1X2 Bytes 



0020: FF 

FF 

00 

06 

67 

06 

68 

68 

<9A> 

0030:60 

C9 

00 

F0 

20 

85 

D0 

A9 

<C9> 

0010:FF 

8D 

66 

06 

A2 

06 

A0 

36 

<92> 

0019:A9 

07 

20 

5C 

E4 

A9 

57 

BD 

<7D> 

0020:00 

02 

A9 

06 

8D 

01 

02 

A9 

<4B> 

0029:C0 

8D 

0E 

D 4 

60 

A2 

E4 

A0 

<5F> 

0030:62 

A9 

07 

20 

5C 

E4 

A9 

60 

<8A> 

0030:SD 

m 

D4 

60 

A5 

D0 

29 

7F 

<10> 

0040:85 

D0 

A2 

00 

m 

7C 

AD 

66 

<9D> 

0048:06 

49 

80 

SD 

66 

06 

30 

04 

<F D> 

0050:A2 

00 

A0 

78 

0E 

30 

02 

8C 

<79> 

0059:31 

02 

4C 

62 

E4 

49 

A5 

D0 

<6A> 

0060:49 

80 

85 

D0 

8D 

0A 

D4 

8D 

< 1B> 

0068:1B 

D0 

69 

40 

00 

00 

00 

00 

<2F> 

Listing. 

»COL256.BIN« 
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Programmnamc 

DLST.256 




0188 

70 

93 

CF 

98 

63 

CF 

C0 

93 

<F2> 

0328:10 

AA 

CF 

38 

8A 

CF 

60 

AA 

<0E> 

Länge 


:1192 Bytes 



0190 

CF 

ES 

B3 

CF 

10 

94 

CF 

38 

<53 > 

0330;CF 

88 

8A 

CF 

80 

AA 

CF 

08 

<89> 










0198 

B4 

CF 

60 

94 

CF 

88 

64 

CF 

<C£> 

0338:SA 

CF 

00 

AB 

CF 

28 

86 

CF 

<9E> 

0030:70 

00 

00 

42 

10 

9E 

00 

02 

<59> 

01 AB 

60 

94 

CF 

D8 

84 

CF 

00 

95 

<A5> 

0340:50 

AB 

CF 

78 

8B 

CF 

A0 

AB 

<FE> 

0008:90 

0F 

0F 

0F 

0F 

90 

0F 

0F 

<CA> 

01A8 

CF 

28 

65 

CF 

50 

95 

CF 

78 

<92> 

0348:CF 

CS 

86 

CF 

F0 

A8 

CF 

18 

<E7> 

0010:0F 

0F 

10 

CF 

10 

80 

CF 

38 

<9E> 

01B0 

65 

CF 

A0 

95 

CF 

C8 

B5 

QF 

<00> 

0350:8C 

CF 

40 

AC 

CF 

68 

sc 

CF 

<92> 

0010:A0 

CF 

60 

80 

CF 

88 

A0 

CF 

<AC> 

0168 

F0 

95 

CF 

18 

66 

CF 

40 

96 

<32> 

0358:90 

AC 

CF 

68 

sc 

CF 

E0 

AC 

<69> 

0020:B0 

30 

CF 

D8 

A0 

CF 

00 

81 

<70 

01C0 

CF 

63 

B6 

CF 

90 

96 

CF 

BS 

<F4> 

0360:CF 

08 

ÖD 

CF 

30 

AD 

CF 

58 

<88> 

8028:CF 

28 

Al 

CF 

50 

81 

CF 

78 

<38> 

01C8 

B6 

CF 

E0 

96 

CF 

08 

87 

CF 

<91 > 

0368:80 

CF 

80 

AD 

CF 

A8 

3D 

CF 

<42 > 

0030:AI 

CF 

A0 

81 

CF 

C8 

Al 

CF 

<20> 

0100 

30 

97 

CF 

58 

B7 

CF 

80 

97 

<78 > 

0370:D0 

AD 

CF 

F8 

80 

CF 

20 

AE 

<78> 

0038 jF ß 

81 

CF 

18 

A2 

CF 

40 

82 

<FS> 

0108 

CF 

AB 

B7 

CF 

00 

97 

CF 

F8 

< A6> 

0378:CF 

48 

8E 

CF 

70 

AE 

CF 

98 

<FE> 

0040:CF 

68 

A2 

CF 

90 

82 

CF 

68 

<A2> 

01E0 

87 

CF 

20 

98 

CF 

48 

68 

CF 

<55> 

0380:BE 

CF 

C0 

AE 

CF 

E8 

8E 

CF 

<76> 

0048:A2 

CF 

E0 

82 

CF 

08 

A3 

CF 

<93> 

01E8 

70 

98 

CF 

98 

BS 

CF 

C0 

98 

< FC > 

0388:10 

AF 

CF 

38 

SF 

CF 

60 

AF 

<E!> 

0850:30 

83 

CF 

58 

A3 

CF 

80 

83 

<44 > 

01F0 

CF 

ES 

BÖ 

CF 

10 

99 

CF 

38 

<F4> 

0390:CF 

88 

8F 

CF 

60 

AF 

CF 

08 

<01 > 

0058:CF 

A8 

A3 

CF 

D0 

83 

CF 

FS 

<2D> 

01FS 

69 

CF 

60 

99 

CF 

88 

B9 

CF 

<7D> 

0398:8F 

CF 

00 

B0 

CF 

28 

90 

CF 

<IS> 

0060:A3 

CF 

20 

84 

CF 

48 

A4 

CF 

<4F> 

0200 

60 

99 

CF 

08 

69 

CF 

00 

9A 

<9D> 

03A0;50 

B0 

CF 

78 

90 

CF 

A0 

60 

<05> 

0068;70 

34 

CF 

98 

A4 

CF 

CB 

84 

<D0> 

0203 

CF 

28 

BA 

CF 

50 

9A 

CF 

78 

<24> 

03A8:CF 

CB 

90 

CF 

F0 

S8 

CF 

18 

<FA> 

0070:CF 

E8 

A4 

CF 

10 

85 

CF 

38 

<98 > 

0210 

BA 

CF 

A0 

9A 

CF 

ce 

8A 

CF 

<AC> 

0380:91 

CF 

40 

Bl 

CF 

68 

91 

CF 

<50 > 

0078:A5 

CF 

60 

85 

CF 

SS 

A5 

CF 

<A3> 

0218 

F0 

9A 

CF 

18 

SB 

CF 

40 

9B 

<42 > 

03BS:90 

Bl 

CF 

B8 

91 

CF 

E0 

Bi 

<82 > 

0080= B0 

35 

CF 

D8 

A5 

CF 

00 

86 

<7F> 

0220 

CF 

68 

BB 

CF 

90 

99 

CF 

BB 

<4£> 

03C0:CF 

08 

92 

CF 

30 

B2 

CF 

58 

<99> 

! 0088:CF 

28 

A6 

CF 

50 

86 

CF 

78 

<CA> 

0228 

BB 

CF 

E0 

96 

CF 

08 

BC 

CF 

<00> 

03CS:92 

CF 

80 

B2 

CF 

AS 

92 

CF 

<81 > 

0090:A6 

CF 

A0 

86 

CF 

CO 

A6 

CF 

<93 > 

0230 

30 

9C 

CF 

58 

BC 

CF 

80 

9C 

<7A> 

0300:00 

62 

CF 

FS 

92 

CF 

20 

53 

<3F> 

0098:F0 

86 

CF 

18 

A7 

CF 

40 

87 

<03> 

0238 

CF 

A8 

BC 

CF 

D0 

9C 

CF 

FS 

<78 > 

03 DO:CF 

48 

93 

CF 

70 

83 

CF 

98 

< 13> 

20 A0:CF 

68 

A7 

CF 

90 

37 

CF 

B3 

<F4> 

0240 

BC 

CF 

20 

9D 

CF 

43 

BD 

CF 

<Ö3> 

03E0:93 

CF 

ce 

£3 

CF 

ES 

93 

CF 

<31 > 

88A3:A7 

CF 

E0 

87 

CF 

08 

AB 

CF 

<49> 

0248 

70 

9D 

CF 

98 

BD 

CF 

ce 

9D 

<10> 

03E8:10 

84 

CF 

38 

94 

CF 

68 

64 

<A5> 

8080:30 

88 

CF 

58 

A8 

CF 

80 

88 

<53> 

0250 

CF 

ES 

BD 

41 

70 

00 

00 

42 

<16> 

03F0:CF 

38 

94 

CF 

B0 

B4 

CF 

D8 

<90 

0068:CF 

AS 

A8 

CF 

D0 

88 

CF 

F8 

<3E> 

0258 

10 

9E 

00 

02 

90 

0F 

0F 

0F 

<Di> 

03F8:94 

CF 

00 

85 

CF 

28 

95 

CF 

<1F> 

80C0:AS 

CF 

20 

89 

CF 

48 

A9 

CF 

<8A> 

0260 

0F 

90 

0F 

0F 

BF 

0F 

90 

CF 

<45> 

0400:50 

B5 

CF 

78 

95 

CF 

A0 

B5 

<94> 

00CS:70 

99 

CF 

98 

A9 

CF 

C0 

89 

<DF> 

0268 

10 

A0 

CF 

38 

80 

CF 

60 

A0 

<59 > 

0408:CF 

CS 

95 

CF 

F0 

65 

CF 

18 

<95> 

00D8:CF 

E8 

A9 

CF 

10 

8A 

CF 

38 

<64> 

0270 

CF 

68 

80 

CF 

80 

A0 

CF 

08 

<50> 

0410=96 

CF 

40 

66 

CF 

68 

96 

CF 

<SE> 

0008:AA 

CF 

60 

8A 

CF 

88 

AA 

CF 

<C2> 

0278 

30 

CF 

00 

Al 

CF 

28 

31 

CF 

<E1> 

0418:90 

B6 

CF 

B8 

96 

CF 

E0 

B6 

<90> 

00E0:60 

9A 

CF 

08 

AA 

CF 

00 

SB 

<8E> 

0280 

50 

Al 

CF 

78 

81 

CF 

AQ 

Al 

<45 > 

0420:CF 

08 

97 

CF 

30 

67 

CF 

58 

<A3> 

00ES: CF 

28 

AB 

CF 

50 

86 

CF 

78 

<5E> 

0288 

CF 

CS 

81 

CF 

F0 

Al 

CF 

18 

<36 > 

0428:97 

CF 

80 

87 

CF 

A8 

97 

CF 

<3£> 

00F0:AB 

CF 

A0 

88 

CF 

ca 

AB 

CF 

<92> 

0290 

82 

CF 

40 

A2 

CF 

68 

82 

CF 

<A5> 

0430:00 

67 

CF 

FS 

97 

CF 

20 

B8 

<0F> 

00FS1F0 

86 

CF 

18 

AC 

CF 

40 

SC 

<96> 

0298 

90 

A2 

CF 

68 

82 

CF 

E0 

A2 

<53 > 

0438: CF 

48 

98 

CF 

70 

68 

CF 

98 

<35 > 

0100:CF 

68 

AC 

CF 

90 

9C 

CF 

B8 

<46> 

02A0 

CF 

08 

83 

CF 

30 

A3 

CF 

58 

<71 > 

0440;98 

CF 

C0 

88 

CF 

E8 

93 

CF 

<6F> 

0108:AC 

CF 

E0 

SC 

CF 

08 

AD 

CF 

<9F> 

02A8 

83 

CF 

80 

A3 

CF 

AS 

83 

CF 

<55> 

0448: 10. 

B9 

CF 

38 

99 

CF 

60 

B9 

<5F> 

0110:30 

BD 

CF 

58 

AD 

CF 

80 

SD 

<D9> 

02B0 

D0 

A3 

CF 

FS 

83 

CF 

20 

A4 

<F2> 

0450;CF 

88 

99 

CF 

B0 

B9 

CF 

08 

<A1> 

0118:CF 

AQ 

AD 

CF 

D0 

80 

CF 

FS 

<BS> 

B2B3 

CF 

48 

84 

CF 

70 

A4 

CF 

98 

<DB> 

0458:99 

CF 

00 

GA 

CF 

28 

9A 

CF 

<25> 

0120:AD 

CF 

20 

BE 

CF 

48 

AE 

CF 

<5B> 

02C0 

84 

CF 

C0 

A4 

CF 

ES 

84 

CF 

<AA> 

0460:50 

6A 

CF 

78 

9A 

CF 

A0 

BA 

< 1B> 

0128:70 

8E 

CF 

98 

AE 

CF 

C0 

SE 

<F7> 

02C8 

10 

AS 

CF 

38 

85 

CF 

60 

A5 

<69> 

0468;CF 

CS 

9A 

CF 

F0 

8A 

CF 

IS 

<26 > 

0130:CF 

E8 

AE 

CF 

10 

SF 

CF 

38 

<C6> 

0200 

CF 

88 

85 

CF 

B0 

AS 

CF 

D8 

<25 > 

0470:9B 

CF 

40 

BB 

CF 

68 

96 

CF 

<75> 

0138:AF 

CF 

60 

SF 

CF 

88 

AF 

CF 

<0F> 

0208 

85 

CF 

00 

A6 

CF 

28 

86 

CF 

<20 

0478s 90 

66 

CF 

68 

96 

CF 

E0 

SB 

< A7> 

0140:60 

BF 

CF 

D8 

AF 

CF 

00 

90 

<96> 

02E0 

50 

A6 

CF 

78 

86 

CF 

A0 

A6 

<E4> 

0480:CF 

08 

9C 

CF 

30 

BC 

CF 

58 

<30 

8148:CF 

28 

60 

CF 

50 

90 

CF 

78 

<81 > 

B2ES 

CF 

CS 

86 

CF 

F0 

A6 

CF 

18 

<D1 > 

0488:9C 

CF 

80 

BC 

CF 

AB 

9C 

CF 

<6D> 

0150:80 

CF 

A0 

90 

CF 

CS 

B0 

CF 

<A0> 

02F0 

87 

CF 

40 

A7 

CF 

68 

87 

CF 

<64 > 

0490;D0 

BC 

CF 

F8 

9C 

CF 

20 

60 

<26> 

0158:F0 

90 

CF 

13 

Bl 

CF 

40 

91 

CAO 

02F8 

90 

A7 

CF 

BS 

87 

CF 

E0 

A7 

<DE> 

0498:CF 

48 

90 

CF 

70 

BD 

CF 

98 

<46> 

0160;CF 

68 

Bl 

CF 

90 

91 

CF 

BB 

<1B> 

0300 

CF 

08 

88 

CF 

30 

AS 

CF 

58 

<F3> 

04A0:90 

CF 

ce 

BD 

CF 

E8 

90 

41 

<8F> 

0168:61 

CF 

E0 

91 

CF 

08 

B2 

CF 

<96 > 

0308 

88 

CF 

80 

AS 

CF 

AB 

88 

CF 

<8B> 

04A8; 00 

00 

00 

00 

00 

00 

00 

00 

<87> 

0170:30 

92 

CF 

58 

B2 

CF 

80 

92 

<69 > 

0310 

D0 

A8 

CF 

F8 

88 

CF 

20 

A9 

<2A> 










0178:CF 

A8 

B2 

CF 

D0 

92 

CF 

FB 

<5D> 

0318 

CF 

48 

89 

CF 

70 

A9 

CF 

98 

<E0> 










0180:B2 

CF 

20 

93 

CF 

48 

B3 

CF 

<96 > 

0320 

89 

CF 

C0 

A9 

CF 

E8 

89 

CF 

< 1F> 

Listing. 

»DLST.256« 






lß- 

<YH> 

2211 

IF T-69 THEN CH=il 

<F£> 

20 REM Paint 256 Cc> by Stephan Serie Sc 


2212 

IF T=68 THEN CH=12 

<FT> 

Francois Paquet-Durand 

<PL> 

2213 

IF T=73 THEN CH=13 

<HF> 

30 REM Tel-s 02506/7493 (Stephan) ; 0252 


2220 

ELSE 

<TF> 

6/2120 (Francois) 

<SF> 

2230 

IF Y<—23 

<K6> 

40 — 

<YZ> 

2240 

CH=X DIV Q+Xl 

<XH> 

1020 EXEC DECLARE:E XEC MENUE_INIT:EXEC A 


2250 

ELSE 

<TQ> 

N 

<PS> 

2251 

IF Y<—14 AND X<22 

<J£> 

1040 POKE 709,12:POKE 710,90 


2252 

CH=10+X DIV 8+7.1 

<HK> 

1070 # START 

<NG> 

2253 

ELSE 

<UA> 

1071 PDP :TRAP #FEHLER 

<sa> 

2260 

IF Y<-S AND Y>—12 

<GB> 

1072 POKE 87,7ß:DPDKE 88,ME:PLOT 73,7.3: P 


2270 

CGL=X DIV 5:GO# START 

<AN> 

□SITION '32,Xis? C0L*16+LUM; 

<£V> 

2280 

ELSE 

<TX> 

2000 — 

<VF> 

2290 

IF Y<—2 AND Y>—7 

<S£> 

2010 DO 

<TQ> 

2300 

LUM=X DIV 5:GO# START 

<DÜ> 

2020 EXEC WAIT_KEY 

<JH> 

2310 

ENDIF 

<SQ> 

2030 CHALT=CH 

<XG> 

2320 

ENDIF 

<ST> 

2040 IF T>%0 

<FL> 

2340 

ENDIF 

<sz> 

2050 T=T&127:D—%0 

<1L> 

2341 

ENDIF 

<TD> 

2060 IF T=42 THEN LUM=LUM+<LUM<15):D-71 

<KU> 

2350 

ENDIF 

<70 

2070 IF T=43 THEN LUM=LUM-CLUM>X0)sD=X1 

<UQ> 

2360 

IF CHALTOCH 

<TA> 

2080 IF T-61 THEN COL=CQL+(CQL<15):D=%I 

<TK> ' 

2370 

PDS=CHALT*4—X3+ME 

<LU> 

2090 IF T-45 THEN CQL-CÜL- (CDL>7.0> : D*%1 

<DU> 

2330 

POKE POS , PEEK ( POS > Sc 127 

<HK> 

2100 IF D—Xl THEN GO# START 

<ÖR> 

2390 

POKE POS+71, PEEK CPOS+7.1 > Stl 27 

<1Q> 

2110 T—TSi95 

<GB> 

2400 

PDS=CH*4“73+ME 

<FV> 

2120 IF T=S0 THEN CH=X1 

<RP> 

2410 

POKE POS,PEEK(POS)!128 

<1C> 

2130 IF T-76 THEN CH=%2 

<ÜY> 

2420 

POKE POS+Xl ,PEEK (POS+7.1) f 128 

<DI> 

2140 IF T-66 THEN CH=73 

<VH> 

2430 

ENDIF 

<SY> 

2150 IF T=90 THEN CH=4 

<HS> 

2440 

IF Y>“7-1 AND S7RIGC70) =7-0 DR CH>11 

<LR> 

2160 IF T=84 THEN CH=5 

<QC> 

2450 

EXEC SAFE: XA-Xs YA=Ys EXEC HELL:D=7.0 

<HI> 

2170 IF T=83 THEN CH=6 

<GtP> 

2460 

QN CH EXEC PLOT,LNE,BOX,CRC,TXT,SCL 


2180 IF T=70 THEN CH=7 

<PT> 

.fil, 

, CUT, RAY , RAY, RüB , DSK , NEW 

<JM> 

2190 IF T-67 THEN CH=9 

<TN> 

2470 

ENDIF 

<TK> 

2200 IF T=82 THEN CH=9 

2210 IF T=75 THEN CH=10 

<RY> 
<CS> \ 

Listing. »Paint256* 
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2480 POKE 764,255 <GY> 

2490 LOOP <ZE> 

2990 — <UY> 

3000 PRQC DECLARE <DF> 

3010 DIM LEER*C256>,MAUS*tli),NAME*(16), 
UNDO*(76S0) <£tf> 

3031 PMB=120:POKE 54279,PMBsPMB=PMB#256+ 

1839 <££> 

3040 CH=%1: CHAL7=CH: XX=ZI :COL=Zl: LUM-%3: 
UN=ADRC UNDO*) < KR> 

3090 POKE 707,255:POKE 53277,*2:MAUS*“"< 

CTL ,> <CTL ,>@£CSHIFT =>x<.<CTL GMCTL B 
> CCTL , } " : MOVE ADR C LEER* > , PMB , 256 < CF> 

3120 AH=$B010:AF=*A010sME“AH+S1E00 < XR> 

3140 OPEN #XI,4,Z0, I 'D:DLST.256":BGET #7.1 
,*7800,596:BGET #Z1,*7C00,596:CLDSE #71 <PÜ> 
3170 BLOAD "D: C0L256. BIN ,J <ötf> 

3180 POKE AF,Z0;MOVE AF,AF+Zl,*1E00:MOVE 
AF,AH,*1E0B <GC> 

3210 POKE 106,120: GRAPHICS ZOsPDKE 82,7.0 <VK> 
3290 ENDPROC < PJ> 

3300 PROC PARTSAFE <QV > 

3310 1F YA< Y:YY=YA*40:ELSE :YY=Y*40:ENDI 
F :MOVE UN+YY,AH+YY,ABS(YA-Y)*40+40 <CA> 

3390 ENDPROC <PL> 

3530 PROC MENUE <CV> 

3540 DPOKE 88,ME:PLOT Z3,Z3:POSITION '40, 

"40:MOVE ADR(LEER*),ME,60: POKE 87,7.0 <YR> 

3570 ENDPROC <PJ> 

3580 PROC HELL <HQ> 

3590 DPOKE 88,AH:POKE 87,9:C0L0R LUM <£P> 

3600 ENDPROC <OQ> 

3610 PROC FARBE <PQ> 

3620 DPOKE SB,AF:POKE 87,9:C0L0R COL <HK> 

3630 ENDPROC < QZ > 

3640 PROC AN <HH> 

3650 D=USR(*0600,65):POKE 559,58 <RE> 

3660 ENDPROC <P1> 

3670 PROC AUS <4P> 

3680 POKE 559,7.0: D=USR(*0600,Z0>: PAUSE Z 
3 <RZ> 

3690 ENDPROC <PR> 

3700 PROC WAIT_KEY <NH> 

3710 REPEAT <ES> 

3720 EXEC MAUS <LQ> 

3730 UNTIL PEEK(764)<255 OR STRIG (7.0) =Z0 <ÖC> 
3740 IF PEEK (764X255: GET Ts ELSE ;T=7.0;E 
NDIF <QN> 

3750 ENDPROC <PH> 

3760 PROC SAFE <DP> 

3770 MOVE AH,UN T *1E00 <RY> 

3780 ENDPROC <PQ> 

3790 PROC UNSAFE <TZ> 

3800 MOVE UN,AH,*1E00 <ÖF> 

3810 ENDPROC <OX> 

3820 PROC MENUE_INIT <70 

3830 EXEC MENUE:POKE 752,1 <MJ> 

3840 7 M Plt_ÄLne*Box aZtc^Tx t*Scl*Fil*Cut* 
Ray*Kln*Ers*Dsk*New* M <GJ> 

3851 POSITION 21 ,Zi : 7 "Col or*No. : <EH> 

3370 CH=Z 1 s POKE 87,9: DPOKE 88,ME+80 <70 

3380 FOR 1=70 TO 15 <HH> 

3890 COLOR I: TEXT 1*5,"40,"*" <XS> 

3910 NEXT I <FH> 

3920 ENDPROC <PC> 

4120 PROC PLOT <70 

4130 WHILE STRIG (Z0) =7.0 AND Y>-Zl <QN> 

4140 EXEC HELL:PLOT X,Y:EXEC FARBE:PLOT 
X , Y:EXEC MAUS <PC> 

4190 WEND <UK> 

4200 ENDPROC <GJ> 

4210 PROC FIL <SS> 

4220 IF COL>Z0 AND LUM>Z0 <IT> 

4230 EXEC HELL:PAINT X,Y;EXEC FARBE:PAIN 
T X,Y <DH> 

4240 ENDIF <SZ> 

4260 ENDPROC <PB> 

4270 PROC LNE <UT> 

4280 WHILE STRIG (7.0) AND Y>-Zl AND PEEK t 
764)028 <VN> 

4290 PLOT XA,YA: DRAWTO X»Y:EXEC PARTSAFE 


s EXEC MAUS <KA> 

4310 WEND <70 

4320 IF Y>—XI AND PEEK (764)028 THEN PLO 
T XA,YA:DRAWTO X,Y:EXEC FARBE:PLOT XA,YA 
: DRAWTO X,Y: PAUSE "43 <SQ> 

4340 ENDPROC <£7X> 

4350 PROC BOX <41> 

4400 WHILE STRIG <Z0) AND Y>-7.I AND PEEKC 
764)028 <UT> 

4420 PLOT XA,YA:DRAWTO XA,Y:DRAWTO X,Y:D 
RAWTO X,YA:DRAWTO XA,YA <YP> 

4430 EXEC PARTSAFE:EXEC MAUS <RS> 

4440 WEND <MB> 

4450 IF Y>—Xi AND PEEK<764X>28 <££> 

4470 PLOT XA,YA:DRAWTO XA,Y:DRAWTO X,Y:D 
RAWTO X,YA:DRAWTO XA,YA <ZE> 

4472 IF D=Z0 <A0> 

4480 EXEC FARBE:DRAWTO XA,Y:DRAWTO X,Y:D 
RAWTO X,YA:DRAWTO XA f YA <SI> 

4482 ENDIF <TX> 

4490 ENDIF <7S> 

4500 ENDPROC <QP> 

4510 PROC CRC <RI> 

4520 WHILE STRIG (7.0) AND Y>7.0 AND PEEK (7 
64X >28 <GG> 

4530 CIRCLE XA,YA,ABS CXA-X),ABS C YA-Y) : EX 
EC UNSAFE:EXEC MAUS <HI> 

4550 WEND <UG> 

4560 IF Y>—X1 AND PEEK (764)028 <LQ> 

4580 CIRCLE XA,YA,ABS(XA-X),ABS(YA-Y):EX 
EC FARBE:CIRCLE XA,YA,ABS(XA-X >,ABS C YA-Y 
> <FF> 

4590 ENDIF <7ü> 

4600 ENDPROC <0ß> 

4610 PROC TXT <JH> 

4620 L=10: G—XI : PGS=Z0: NAME*= M 11 s IF Y< 184 
THEN EXEC INPUT <LZ> 

4630 WHILE STRIG(%0> AND Y>X0 AND Y<184 
AND PEEK (764)028 <GS> 

4640 TEXT X,Y,NAME*:MOVE UN+Y*40,AH+Y*40 
,320:EXEC MAUS <GX> 

4660 WEND <UL> 

4670 IF Y<Z0 OR PEEK(764)=28:EXEC UNSAFE <G4> 
4680 ELSE sfEXT X,Y,NAME*:EXEC FARBE:TEX 
T X,Y,NAME*:WHILE STRIGCZ0)=Z0:WEND :END 
IF <££?> 

4690 ENDPROC <PS> 

4700 PROC SCL <7S> 

4710 D=Z1:EXEC B0X:P1=XA:P2=YA:P3=X:P4=Y <£A> 
4712 IF PEEK < 764)< >28 AND X>XA AND Y>YA <AX> 
4720 EXEC UNSAFE:REPEAT ;EXEC MAUS:UNTIL 
STRIG CZ0> =X0t XA=XiYA=Y:EXEC HELL <EJ> 

4730 PAUSE 10:EXEC BOX:P5=XA:P6=YA:P7~X: 

P8=Y <RR> 

4732 IF PEEK (764)028 AND X>XA AND Y>YA <BÜ> 
4740 EXEC UNSAFE:EXEC SAFE:EXEC AUS <GK> 

4750 Z1=(P1—P3)/C P5-P7):Z2=(P2-P4)/(P6-P 
8) <Iif> 

4762 FOR 1-7.0 TO ZI <BR> 

4770 FOR I1=P5 TO P7 <UC> 

4780 FOR I2=P6 TO P8 <XY> 

4810 DPOKE 88,UN:LDCATE P1+(I1-P5>*21,P2 
+(I2-P6)*Z2,Z:COLOR Z:DPOKE 83,AH+1**200 
0 <RK> 

4820 DPOKE 83,AH+1**2000:PLOT 11,12 <JS> 

4850 NEXT 12 <CZ> 

4860 NEXT II <CQ> 

4870 MOVE AF,UN,7680 <KT> 

4880 NEXT I <GG> 

4882 EXEC AN <£tf> 

4884 ELSE :EXEC UNSAFE:ENDIF <IZ> 

4886 ELSE :EXEC UNSAFE:ENDIF <JH> 

4890 ENDPROC <PW> 

4900 PROC DSK <UK> 

4920 EXEC MENUE: 7 N Save*Load*Fr(nt*Dir**E 
Dir*Bye**Quit" <GJ> 

4930 REPEAT <FD> 

4940 EXEC WAIT_KEY:D=Z0:T=T&95 <AL> 

4950 IF T—Z0 <FY> 


Listing. »Paint256« (Fortsetzung) 












4951 IF YC-23 THEN D=X DIV 10+ZI <Y0> 

4960 ELSE <UH> 

4970 IF'T=83 THEN D=7.1 <LY> 

49S0 IF T—76 THEN D=X2 <NH> 

4990 IF T-70 THEN D=X3 <MB> 

5000 IF T-68 THEN D=4 <TF> 

5010 IF T=69 THEN D=5 <JZ> 

5020 IF T=66 THEN D=6 <JN> 

5030 IF T=S1 THEN D=7 <IZ> 

5040 ENDIF <SU> 

5060 EXEC MENUE:IF D<6 THEN ON D EXEC SA 
VE * LAD,FORMAT,NDIR,ED1R:D=6 <£K> 

5070 EXEC MENU£_INIT <RD> 

5080 UNTIL D>5 <ff£> 

5090 IF D=7 THEN EXEC AUS;GRAPHICS X0:PO 
KE 53251, X0: END <AC> 

5100 ENDPROC <Ö1> 

5110 PROC RUB <YH> 

5120 MAUSS^'CCTL ,>£E5C CTL »U+U+U+CESC 
CTL »CCTL , > CCTL ,J":PDKE 87,15 <CL> 

5130 WHILE Y>X0 AND PEEK<764)=255 <TU> 

5140 WH ILE STRIGCX0)=X0 AND Y>X1 <LS> 

5150 EXEC HAUS;COLOR X0 <UZ> 

5160 DPOKE SS,AH; TEXT X*X2,Y-Xl, N ^" <BP> 

5180 DPOKE 88,AF:TEXT X*X2,Y-X1, *V" <AP> 

5200 WEND <7tf> 

5210 EXEC MAUS <LF> 

5220 WEND <TS> 

5230 MAUSS= H CCTL ,XCTL ,>§£CSHIFT =>x<- 
CCTL G>CCTL B>CCTL <JK> 

5240 ENDPROC <ÜH> 

5250 PROC NEW <AG> 

5270 EXEC MENUE:? "^Clear^scrsen^tYes/N 
o)*?";EXEC WAITJCEY <SV> 

5290 IF T=89 <SC> 

5300 POKE AF,X0:MOVE AF,AF+Xi,SIE00:HOVE 
AF,AH,S1E00 <FK> 

5330 ENDIF <SZ> 

5340 EXEC HENUE_INIT <ß4> 

5350 ENDPROC <P8> 

5360 PROC FORMAT <ZV> 

5370 EXEC MENUE:? H 0. k. to*.format^disk*in 
idr 1 ve* 1?* CYes/No ) 11 P > 

5380 EXEC WAIT_KEY <K0> 

5390 IF T=89 <SE> 

5400 EXEC AUSsXIO 254,#X1 ,X0,7.0, “Dl 11 : EXE 
C AN <TZ> 

5430 ENDIF <7B> 

5440 ENDPROC <P4> 

5450 PROC NDIR <LC> 

5460 LEERS=r"D:*.PIC M :L=10:EXEC DIRsLEERS 
="CCTL , y CCTL ,J CCTL ,1<CTL ,>CCTL ,>CCT 
L T >-CCTL <HU> 

5490 ENDPROC <FP> 

5500 PROC EDIR <GU> 

5510 LEER^= 1, D:*.* M :L=13:EXEC DIR: LEERS^ 1 * 

CCTL ,J CCTL ,JCCTL ,JCCTL ,XCTL <KJ> 

5540 ENDPROC <PC> 

5550 PROC DIR <7P> 

5560 REPEAT <FF> 

5570 EXEC AUS:CLOSE #Xl:OPEN #X1,6,ZS,LE 
ERS <QK> 

5590 REPEAT <FO> 

5610 EXEC AUS:INPUT #X1,NAHES:SL=11 <LZ> 

5612 IF NAMESCSXV'FREE^SECTDRS" <ÄL> 

5620 POSITION 10,X0 <&F> 

5640 FOR I=%3 TO 10 <KE> 

5650 IF NAHES CI,1)="^" THEN SL-SL-Xl <DR> 

5660 NEXT I <FX> 

5670 IF NAHES(72,72)=" Ä ";? NAHES(%3,L) <£G> 

5680 ELSE s? NAHES(XI,15):ENDIF <J£> 

5690 EXEC AN <££> 

5700 WHILE STICK(X0>= 15 AND PEEKC764>=25 
5 AND STRIG CX0> : WEND <HU> 

5710 IF PEEKC764X255 THEN GET T <FP> 

5712 ENDIF <TJ> 

5720 UNTIL T=155 OR STRIG (7.0) =X0 DR NAHE 
SCX2,%2K>"* M OR T=27 <£#> 

S730 UNTIL STRIG CX0)=X0 OR T=27 DR T=155 <UD> 
5740 CLOSE #XI <HX> 

5750 ENDPROC <PJ> 


5760 PROC HAUS <QE> 

5770 A=STICK CX0 ) <KC> 

5780 X=X+XX* ( A&S=X0) - (ASe4=X0> <QO> 

5790 Y-Y+ ( A&Z2=X0> - { A&X 1 =Z0 ) < RD > 

5800 IF Y>191 THEN Y=I91 <IN> 

5810 IF Y<-32 THEN Y=-32 <MD> 

5820 IF X>79 THEN X=79 <ZJ> 

5830 IF X<X0 THEN X=X2 <GU> 

5850 POKE 53251,X*7.2+4S: MOVE ADRCMAUSS), 

PMB4-Y ,11 <70 

5860 ENDPROC <F0> 

5370 # FEHLER <H8> 

5890 CLOSE #7.1: EXEC HENUE;EXEC AN <XP> 

5900 ? "iiAfehler*Nr.:*";ERR;"•e/K 
rtop-fV » <UC> 

5910 EXEC WAIT_KEY:EXEC HENUE_INIT <PG> 

5930 SO# START <JB> 

5940 PROC INPUT <PO 

5950 IF NOT CG) THEN EXEC MENUE:POSITION 
2,0:? “Save^s? " s NAHES (7.1)= M " <FO 

5960 REPEAT <FN> 

5970 IF G:MOVE UN+Y#40,AH+Y*40,320s TEXT 
X,Y,NAHES <DL> 

5980 ELSE :POSITION 11,0:? NAMES*"*”#END 
IF <ZX> 

5990 GET TiD=TScl27 <1 fG> 

6010 IF (D>—XI AND D<27> OR CD>31 AND D< 

125) <ZH> 

6020 POS=POS+ C PDS< L):NAHES(POS,POS > =CHRS 
(T) <UY> 

6040 ENDIF <SX> 

6050 IF T=126 AND PO5=X0 THEN NAHES="" <Ü2> 

6060 IF T^126 AND POS>X0 THEN P0S=P0S«X1 
: NAHES (POS+7.1) = ^ " < TZ > 

6070 UNTIL T=155 DR T=27 <RQ> 

6072 IF T=27 THEN POKE 764,28 <KE> 

6080 ENDPROC <PF> 

6090 PROC LAD <0K> 

6100 EXEC NDIR <GI> 

6110 IF T< >27 OR NAHES CX2,X2X>"* H <GJ> 

6120 NAHES(XI,X2)="D:"sNAHES(SL)=".PIC H <QH> 
6130 EXEC AUS:OPEN #X1 ,4,7,0,NAHES <CO 

6140 BEET #X1,AH,S1E00:BGET #XI,AF,S1E00 
;CLOSE #XX:EXEC AN <0C> 

6170 ENDIF <7J> 

6190 ENDPROC <PK> 

6200 PROC SAVE <KQ> 

6210 6=7.0: L=8:PQS=X0tEXEC INPUT <ZH> 

6220 IF T<>27 <ßT> 

6230 “MOVE ADR C NAHES CX1)),ADR CNAMES t X3)) 

,8 <0U> 

6240 NAHES CXI,X2> ="Da w :NAMES CPOS+X3)= M .P 
IC" <TÖ> 

6250 EXEC AUS:OPEN «I ,8,X0,NAHES <GÖ> 

6260 BRUT #Xl,AH,SlE00sBPUT #X1,AF,S1E00 
: CLOSE #7.1: EXEC AN <UK> 

6290 ENDIF <TQ> 

6300 ENDPROC <QN> 

7000 PROC CUT <AV> 

7010 D=X1:EXEC BOX:EXEC UNSAFE:P2=Y:XA=X 
A DIV X2:P1=ABSCX DIV 7.2-XA);EXEC SAFE:X 
X=X2 < YJ ) 

7020 IF Y>YA AND X>XA <6£> 

7100 REPEAT <£^> 

7110 EXEC UNSAFE <07> 

7120 FOR I=YA TD P2 <LG> 

7122 IF CY+I)#40-P2*40<X0 THEN POKE 764, 

28:EXIT <£^> 

7130 MOVE XA+UN+I*40,X DIV X2+AH-KY+I)*4 
0—P2*40—P11,P1 < UV> 

7140 NEXT I <FJ> 

7150 EXEC MALIS <£.ß> 

7160 UNTIL STRIG<X0)=X0 OR PEEKC764)=28 <JB> 
7170 IF PEEK C 764)< >28 <FM> 

7180 MOVE AF,UN,7680 <KL> 

7190 FOR I=YA TD P2 <tfj> 

7200 MOVE XA+UN^I*40,X DIV X2+AF+<Y+I)*4 
0-P2*40^PI+XI,P1 <SC> 

7210 NEXT I <FC> 


Listing. «Pain 1258« (Fortsetzung) 
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A ATARI 


Spftzen-Softwcve 

für ATARI ST 


Wordstar 3.0 
mit MailMerge 

Dieses Standardprogramm mit welt¬ 
weitem Erfolg bietet Ihnen bildschirm- 
orientierte Formatierung, deutschen 
Zeichensatz und integrierte Hlifstexte. 
Ueferumfana: Zwei 3 72 -Zoll-Dis ketten mit 
CP/M-Emulator und WordStar/Mail- 
Merge-Dateien, Originalhandbuch von 
MicroPro, Beschreibung derATARl- 
spezifischen Version. 

Hq rdware-Anforderung: ATARI-ST- 
Computer, 80-Zeichen-Monitor, min- 
destens ein 3V2-Zoll-Di$kettenlaufwerk, 
Drucker mit Centronics-Schnittsteile. 

Best .-Nr. 50106 
DM 199,-* {$Fr 178,-/öS I990,w*) 


dBASE II 2.41 

Das bedienerfreundiiche Datenbank¬ 
system dBASE II beinhaltet eine eigene 
Programmiersprache für die Erstellung 
individueller Programme. dBASE II wurde 
unter dem Betriebssystem GEM-TOS 
den ATARI-ST-Computern angepaßt und 
laßt sich komfortabel über PuJI-down- 
Menüs mit der Maus steuern. 
Ueferumfanq: 3V 2 -Z 0 II-Diskette. 
Originalhandbuch von Ashton-Tate, 
Beschreibung der ATARI-spezifischen 
GEM-Version, 

Hardware-Anforderung: ATARI-ST- 
Computer mit Betriebssystem im ROM 
(260 ST, 520 ST, 520 ST+, 1040 ST), ein 
3V 2 -Z 0 II-Diskettenlaufwerk, Drucker mit 
Centronics-Schnittsteile. 

Besf.-Nr. 50306 

DM 348,-* (sFr 295,-/ö$ 3490,^*) 


Markt&Technik 

ÄKRisr 

Software 




Webstar 3.0 



mit MlaiEM« 

ATI 


uierae fi 
ARTST 


für den 


Markt&Technik 

A1ARI ST-Software 


dBASE 





unter GEM-TOS 


3& p -Disk®tto für 

ÄEA3I 260 ST. 520 $T. 520 ST* und IWO ST 


; 

m\ 

P 

m 


m 

r- 



Diese Markt&Technik-Software erhalten 
Sie In den Fachabteilungen der Waren¬ 
häuser, bei Ihrem Computerfachhändier, 
im Buchhandel oder direkt beim Verlag 
gegen Vorauskasse. Fragen Sie auch 
nach dem neuen Gesamtverzeichnis 
Frühjahr/Sommer'SZ Oder fordern Sie es 
direkt beim Verlag an. 

Dazu die weiterführende Literatur: 



Wordstar für ATARI ST 

Das Buch für den mühelosen Einstieg in 
die Praxis der Textverarbeitung mit 
Wordstar, 

Best.-Nr. 90208, ISBN 3-89090-208-1 

dBASE II für die ATARI ST 

Zu einem Weltbestseller unter den 
Datenbanksystemen das klassische 
Einführungs- und Nachschlagewerk. 
Best.-Nr, 90206, ISBN 3-89090-206-5 

Jedes Buch kostet DM 49 - 

(sFr 45,10/55 382,20) 

Erhältlich bei Ihrem Buch- oder 
Computerfach handlet 

“ in!cl,MwSr. 

Unwofbirtd liehe Ptciscmpfeblung 



Markt&T echn ik 

Zeitschriften ■ Bücher 
^ Software ■ Schulung 

£ Markt&TechnTk Verjag AG H BudhverJog, Hans* Pinsel-Straße 2 , 8013 Haar bei München, Telefon (089) 4613-0 

Bestellungen im Ausland bitte an: SCHWEIZ: Morkf&Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 41 5656 - ÖSTERREICH: Rudolf lechner & Sohn, 
Helzwerkstra&e 10, A-1232 Wien, Telefon {0222} 677526 ■ Ueberreuter Media Verlagsges. mbH {Großhandel}, Alser Straße 24, A409T Wien, Telefon (0222) 481538-0. 




























i neue 

Happy-Computsr 
\ im Oktober 

N,. 

Cosinus macht Weltkarriere 

Comic-Weltkonzern Bulls nimmt Computerfreak Cosinus 
unter seine Fittiche 

llsffings über Listings für C64 und C128 

Gelungene Reversi-Variante oder eine raffinierte RAM- 
Disk für den C128 im 64er-Modus 

Welchen 16-Bifter soll ich kaufen? 

Umfangreicher, zweiteiliger Vergleichstest der 16-Bit- 
Com puter 

Atari ST: 

3D-Zeichen- und Animationsprogramm »GFA-Objekt« 
wird mit anderen vergleichbaren Programmen getestet 

So geht's: Basic unter MS-DOS 

Basic-Kurs über GW-Basic und das Basic-2 der 
Schneider-PCs 

Exklusiv: Die Vizawrite-Story 

Der Programmierer der Vizawrite-Programme 




Ab 14.9,1087 
im Zeitschriften- 


Gutschein 

FÜR EIN KOSTENLOSES PROBEEXEMPLAR VON HAPPY-COMPUTER 

JA, ich möchte »Happy-Compoter« kennen lernen, 

Sender» Sie mir bitte die aktuelbte Ausgabe kostenlos ab Probeexemplar, Wenn mir »HappyGlompoter* 
gelallt und ich es regelmäßig weitorbsziehen möchte, bouche ich nichts zu tun: Ich erhalte »Happy- 
CoiT^puterfl dorm ragclmäöig frei Haus per Post und bezahle pro Jahr mm DM 66,— statt DM 72,— Einzel¬ 
verkaufspreis (Ausland auf Anfrage). 


Usmame, Marne 


Straße 


PLZ, Ort 


Datum 


1, Unterschrift 


Mir ist bekannt^daß ich diese Bestellung inneihalb von 8 Tagen bei der Bestelladresse widerrufen kann 
und bestätige des durch meine zweite Unteßdirift, Zur Wihrung der Frist genügt die rechtzeitige Absendung 
des Widerrufe, 


Datum 2- Unterschrift 

Gutschein ausfülbn, ausschneiden, in ein Kuvert stecken und absenden an: 
Markt&Technik Vertag Aktiengesellschaft, Vertiefe, Postfach T304, 3013 Haar 


Fordern Sie mit neben¬ 
stehendem Gutschein 
ein kostenloses Probe¬ 
heft an. lernen Sie 
»Happy-Computer«, 
das große Heimcom¬ 
puter-Magazin, völlig 
unverbindlich kennen. 


X 














7220 ELSE 

<TK> 

7230 EXEC UNSAFE 

<PB > 

7240 ENDIF 

<TC> 

7250 ENDIF 

<TF> 

7260 XX—ZI 

<0E> 

7290 ENDFROC 

<PH> 

7300 PROC RAY 

<AR> 

7310 REPEAT 

<£0> 

7320 EXEC LNEsEXEC HELL:EXEC SAFE:IF 

CH= 

10 THEN XA=XiYA=Y 

<HB> 

7350 UNTIL PEEK(764)=28 OR Y<%1 

<HH> 

7390 ENDPRÜC 

<PP> 

Listing. »Paint256« (Schluß) 



1000 rem Mandelbrotmenge/Apfelmaennchen <SÜ> 

1010 REM in 256 Farben- <KC> 

1020 — <VK> 

1030 REM Voraussetzung! <RJ> 

1040 REM Atari XL/XE <£A> 

1050 REM Floppy (Turbo Basic XL) <LF> 

1060 REM Grafikerweiterung fuer 256 Färb 
en <£Y> 

1070 REM (C0L256.BIN auf Diskette in Lau 
f werk 1) <UX> 

1080 — <UC> 

1090 REM (c) by Stephan Gerle <GH> 

1100 — <VG> 

1110 EXEC FARB256 INI! <NH> 

1120 GRAPHICS 7-0 <YG> 

1130 DIM LU*<12> ,R0SU2> ,FILE*(20> ,LEER* 

(256) <UG> 

1140 LU*= M CCTL i > CCTL ,}CCTL »>C CTL , >CC 
TL , >C CTL , >C CTL , >CC TL , X CTL , >CESC CT 
L » -CCTL ,}CCTL ,}":RÜ*="CCTL , J CCTL ,>£ 

ESC CTL »CCTL A> CCTL A3 CCTL A}CCTL AJ CC 
TL A> CCTL A J CCTL AICCTL ,}<CTL f J ,r <HJ> 

1150 # MENUE_NEU <FA> 

1160 POKE B2,X2sCLS <RJ> 

1170 SETCOLOR %1 ,%0,12s SETCQLQR 7.2,X0,7-0 <PA> 

1100 ? "**Mandelbratmenge*(Apfelmaennche 
n) " <70 


1190 7 "nach^Spektrum^der^Wissenschaf t*l 
0/86« <AP> 

1208 7 Cc) iby*Stephan-fcGerle“ <BQ> 

1210 POKE 82,5:7 <CK> 

1220 7 "Laden^Bild" <XD> 

1230 7 "Speichern*Bi1d" <PA> 

1240 7 "Berechnen^Bi ld" <Ftt> 

1250 7 "Äusschnitt^vo«u.Bi Id" <SZ> 

1260 7 «Directory« <XA> 

1270 7 

1280 7 "Umschalten^gum^Bilda^ SELE CT« <HG> 

1290 ? "Vom*Bild*zum*Menue*s*START“ <F4> 

1300 7 <tfB> 

1310 7 ,f Aktuel 1 e*Parameter: * <Ö7> 

1320 7 "-—-—" <LH> 

1330 7 "Real-Teil ****** (XJ-.S ** 1 sAECKE <HQ> 

1340 7 ,, Intaginaer-Teil^(y>*s* ,, 5 BECKE <0A> 

1350 7 "Seiteniaenge***<s)*i*";SEITE <OA> 

1360 7 <WT> 

1370 ? “Ihre^Wahl?*"; <Ffl> 

1380 MENUE=DPEEK(88) <FK > 

1390 MEIMUEDLST=DPEEK(560> <GS> 

1400 # START <#T> 

1410 DPOKE 560,MENUEDLST <#(?> 

1420 DPOKE S8,MENUE:P0KE 87,Z0 <Ftf> 

1430 POSITION 22,19:7 11 H ; 

1440 REPEAT <£T> 

1450 UNTIL PEEKCSD01FJ-5 DR PEEK(764)<25 
5 <GJ> 

1460 IF PEEK(*D01F>=5 <ÜP> 

1470 D=USR(*0600,64) <HH> 

1480 WHILE PEEK (*D0IF) < >6i WEND <Jt/> 

1490 D=USR<*0600,70) <TK> 

1500 ELSE <T£> 

1510 GET TT:TT=TT&95: T =X0 <ß£> 

1520 IF CHR*(TT)="S" THEN EXEC SPEICHERN <Z)P> 
1530 IF CHR*(TT)="L H THEN EXEC LADEN <B£> 


1540 IF CHR*CTT)="B" THEN EXEC EINGABE:E 


XEC RECHNEN:T=X1 <£#> 

1550 IF CHR*(TT) = *'A" THEN EXEC AUSSCHNIT 
T:EXEC RECHNEN: T=Z I <XW> 

1560 IF CHR*(TT> ="D" THEN 7 :DIR :GET TT 
:T^Xl <A0> 

1570 IF T=X1 THEN POP :GO# MENUE_NEU <Ftf> 

1580 ENDIF <70> 

1590 GO# START <JH> 

1600 — <7G> 

1610 PROC EINGABE <YY> 

1620 7 <HN> 

1630 7 "Realteil Ä der*Iinken*unteren^Ecke 
" <KC> 

1640 INPUT 11 X=" , AECKE <JF> 

1650 ? " Imaginaertei I *der*l inkenÄurtteren 
*Ecke« <YG> 

1660 INPUT 11 V-", BECKE <KP> 

1670 ? "Sei tenlaenge*des*.Ausschni tts" <Sff> 
1680 INPUT "S=",SEITE <£G> 

1690 7 "Max i male^Iterationstiefe“ <RP> 

1700 INPUT "1=",TIEFE <7Ö> 

1710 ENDPROC <Ö7> 

1720 — <VY> 

1730 PROC RECHNEN <HE> 

1740 D=USR(*0600,64) <HT> 

1750 POKE AH,7.0:MQVE AH, AH+Xl ,$1DFF <SR> 

1760 MOVE AH,AF,*1E00 <CJ> 

1778 SPALT=SEITE/160 <VF> 

1780 POKE 87,9:DPOKE 88,AH:COLOR 8 <CD> 

1790 TEXT 70,7.0, STR* (AECKE) <DC> 

1800 TEXT 70,9,STR*(BECKE) <U> 

1810 TEXT 7.0,16,STR*(SEITE) <PP> 

1S20 DPOKE 88,AF:CDLOR 6 <VB> 

1830 TEXT 7.0,7.0 , STR* C AECKE) <CX > 

1840 TEXT 7.0,8,STR* (BECKE) <IX> 

1850 TEXT 7-0, 16,STR* (SEITE) <QB> 

1860 FOR M=X0 TO 159 <FY> 

1870 BC=M*SPALT+BECKE <UQ> 

1880 FOR N=70 TO 159 STEP 72 <Z^> 

1890 AC=N*SPALT+AECKE < WJ > 

1900 AZ=X0: BZ=7.0: ZAEHLER^X0 <Ttf > 

1910 REPEAT <£U> 

1920 AQ=AZiA2vAZ A X2iB2=BZ A %2’ <HC> 

1930 AZ=A2—B2+AC <PK> 

1940 BZ=7.2*AQ*BZ+BC <BF> 

1950 ZAEHLER=ZAEHLER+-% 1 <HÜ> 

1960 UNTIL (A2+B2>4) OR (ZAEHLER>TIEFE> <Z0> 

1970 IF ZAEHLER< =TIEFE <Tfi> 

1980 COLOR ZAEHLER MOD 16 <JQ> 

1990 DPOKE 88,AH <BZ> 

2000 PLOT N DIV Z2,191-M <WT> 

2010 COLOR (ZAEHLER DIV 16) MOD 16 <AS> 

2020 DPOKE 08,AF <YQ> 

2030 PLOT N DIV X2,191~M <XC> 

2040 ENDIF <ST> 

2050 IF PEEK(*D01F)<>7 <EG> 

2060 IF PEEK(*D01F)=6 <£D> 

2070 POKE 559,*22:D=USR(*0600,64) <YB> 

2080 ELSE <TT> 

2090 IF PEEKC*D01F)=5 <DÄ> 

2100 POKE 559,7.0: D=USR (*0600,X0) <ZX> 

2110 ENDIF <Sff> 

2120 ENDIF <SP> 

2130 ENDIF <SS> 

2140 NEXT N <MH> 

2150 NEXT M <ÜZ> 

2160 D=USR(*0600,X0):GRAPHICS 7.0 <HX> 

2170 ENDFROC <PA> 

2180 — <WF> 

2190 PROC SPEICHERN <7«> 

2200 7 <XA> 

2210 7 "Mumnier^deSiBildeSi"; <QA> 

2220 INPUT NR <FK> 

2230 FILE*= "Di APFEL" <t*V> 

2240 FILE*(LEN(FILE*)+%1)=STR*(NR > < CH> 

2250 FILE* (LEN (FILE*) +7.1) =" . PIC" <FK> 

2260 TRAP #FEHLER <XJ> 

2270 QPEN #X 1,8,7.0,FILE* <CK> 


Listing. »ApleB258« 



























2230 

BPUT #%1,AH,S1E00 

<TY> 

2910 

IF AB<X1 THEN AB=X1 

<BH> 

2290 

BPUT #7.1,AF,*1£00 

<S7> 

2920 

IF X+AB>80 THEN AB=AB-X1 

<DD> 

2300 

? #X1,STRS(AECKE> 

<ÜI> 

2930 

IF Y+AB>80 THEN AB=AB-X1 

<DP> 

2310 

7 #X1,STR#(BECKE) 

<vc> 

2940 

ENDIF 

<TL> 

2320 

? #7.1,STR*(SEITE> 

<«Q> 

2950 

POKE 53248,X*%2+48 

<RS> 

2330 

# FEHLER 

<MC> 

2960 

POKE 53249, X*X2+40+AB*2 

<QZ> 

2340 

CLOSE #XI 

<HM> 

2970 

MOVE ADR(LUS),PMB-Y*X2,12 

<GD> 

2350 

POP :GO# MENUE^NEU 

<NH> 

2980 

MOVE ADR C ROS),PMB-Y*X2-X2*AB+264,12 

<SP> 

2360 

ENDPROC 

<P8> 

2990 

AECKE=AA+X *S PALT 

<GR> 

2370 

— 

<HG> 

3000 

BECKE=BB+Y*SPALT 

<GT> 

2380 

PRQC LADEN 

<SN> 

3010 

SEITE=AB*SPALT 

<ts> 

2390 

? 

<XD> 

3020 

UNTIL PEEK CSD01F)=6 

<YJ> 

2400 

? " Nummer*des*Bi 1 des* **; 

<QB> 

3030 

POKE 53248,X0:PQKE 53249,%0 

<XB> 

2410 

INPUT NR 

<FR> 

3040 

D=USR (S0600,7,0 > : GRAPHICS X0 

<HQ> 

2420 

FILES« 14 D: APFEL" 

<UH> 

3050 

? "Maximale*Iterationstiefe" 

<QT> 

2430 

FILE» C LEN(FILE*)+X1)=STR* t NR > 

<CI> 

3060 

INPUT TIEFE 

<UL> 

2440 

FILE* CLEN(FILES)+X1>=“-PIC" 

<FL> 

3070 

ENDPROC 

<GZ> 

2450 

TRAP »NICHT VORHANDEN 

<HK> 

3080 

— 

<#€> 

2460 

PQKE 73, X0 

<HD> 

3090 

PROC FARB256 INIT 

<SF> 

2470 

OPEN #X1,4,'/,0,FILE* 

<AG> 

3100 

REM Grafik mit 256 Farben 

<UB> 

2430 

EGET *X1,AH,S1E00 

<MT> 

3110 

REM Aufruf mit D=USR(S600,GTIAMode> 

<TB> 

2490 

BEET #X1,AF,S1E00 

<LQ> 

3120 

REM Ausschalten mit D=USRCS600,0) 

<YS> 

2500 

INPUT #X1,FILES 

<CU> 

3130 

REM Helligkeitsbild bei AH=*S01G 

<FJ> 

2510 

AECKE=VAL(FILES) 

<CQ> 

3140 

REM Farbbild bei AF=SA010 

<CR> 

2520 

INPUT #7.1 «FILE* 

<DA> 

3150 

AH=S30I0sAF«SA010 

<AS> 

2530 

BECKE=VAL(FILE*) 

<DA> 

3160 

PQKE AH,X0:MOVE AH,AH+%1,S1DFF 

<$K> 

2540 

INPUT #%1,FILES 

<VG> 

3170 

MGVE AH,AF,$1E00 

<CC> 

2550 

SEITE=VALCFXLE*> 

<m» 

3130 

POKE 106,120:REM Speicher schuetzen 

<JX> 

2560 

# NICHT VORHANDEN 

<xs> 

3190 

— 

<tfj> 

2570 

CLOSE #XI 

<HZ> 

3200 

REM Displaylist erstellen 


2580 

PGP sGQ# MENUE NEU 

<KU> 

3210 

— 

<1 

2590 

ENDPROC 

<PO> 

3220 

A=S7S00:ADA=AH:ADB=AF+40 

<ZL> 

2600 

— 

<¥R> 

3230 

POKE A,112:PQKE A+Xl,240;PQKE A+X2, 


2610 

PRQC AUSSCHNITT 

<R8> 

240 


<KF> 

2620 

D=USR(S®600,65> 

<1F> 

3240 

FÜR I=A+X3 TD A+X3+C191*X3> STEP 6 

<UZ> 

2630 

PMB=112:P0KE 54279,PMB 

<¥A> 

3250 

POKE I,SCF 

<KD> 

2640 

PMB=PMB*256+1024+214 

<PF> 

3260 

DPOKE I+Xl,ADA 

<ES> 

2650 

PQKE 559,58 

<Cti> 

3270 

ADA=ADA+S0 

<DG> 

2660 

POKE 53256/40: POKE 53257/40 

<H8> 

3280 

POKE I+X3,SCF 

<X2> 

2670 

POKE 704,255:POKE 705,255 

<EP> 

3290 

DPOKE 1+4,ADB 

<CG> 

2680 

POKE 53277/42 

<FH> 

3300 

ADB«ADB+80 

<DH> 

2690 

X«X0:Y«X0 

<PK> 

3310 

NEXT I 

<FA> 

2700 

AB=3 

<SE> 

3320 

POKE 1,65 

<UY> 

2710 

MOVE ADRCLEERS),PMB~214,256 

<TJ> 

3330 

DPOKE 1+7.1 ,A 

<HU> 

2720 

MOVE ADR CLEERS),PMB+256-214,256 

<ZC> 

3340 

A=S7C00:ADA=AF:ADB=AH+40 

<£N> 

2730 

PQKE 87,9sDPDKE SS,AH:COLOR 8 

<BP> 

3350 

POKE A,112:POKE A+Xl,112:POKE A+X2, 


2740 

AA^AECKE:BB=BECKE r SPALT=SEITE/80 

<BA> 

240 


<Itt> 

2750 

REPEAT 

<FD> 

3360 

FOR I=A+X3 TO A+X3+(191*X3 > STEP 6 

<VH> 

2760 

POKE AH,X0 

<VH> 

3370 

POKE I,SCF 

<KL> 

2770 

MOVE AH,AH+X1,960 

<LV> 

3380 

DPOKE I+Xl,ADA 

<FA> 

2780 

TEXT %0,X0,STRS(AECKE) 

<DA> 

3390 

ADA=ADA+80 

<DQ> 

2790 

TEXT X0,8,STR*(BECKE) 

<JL> 

3400 

POKE I+X3,SCF 

<HQ> 

2800 

TEXT X0,16,STRS(SEITE) 

<PH> 

3410 

DPOKE 1+4,ADB 

<BH> 

2810 

A=STICK<%0) 

<JJ> 

3420 

ADB=ADB+80 

<DP> 

2820 

IF STRIG("40) 

<XG> 

3430 

NEXT I 

<FJ> 

2830 

X=X+ (A&8=%0> - { ASi4«XB) 

<HR> 

3440 

POKE 1,65 

<XG> 

2840 

Y=Y— ( AScX2=X0 > + CA&X1 =X0> 

<PT> 

3450 

DPOKE I+Xl,A 

<OE> 

2850 

IF X<X0 THEN X=X0 

<ax> 

3460 

BLOAD "D: C0L256. BIN 14 : REM Grafikerne 


2860 

IF X+AB>80 THEN X=X-X1 

<IX> 

iterung laden 

<EF> 

2870 

IF Y<X0 THEN Y=X0 

<SF> 

3470 

ENDPROC 

<PH> 

2830 

IF Y+AB>80 THEN Y=Y-X1 

<LG> 

3430 

— 

<HM> 

2890 

ELSE 

<IM> 




2900 

AB«AB+(A&8*X0)-< A&4=X0) 

<KR> 

Listing. »Apfel256« (Schluß) 



10000 

PROC FARB256_INIT 

<VB> 

10130 

A=$7800:ADA«AH:ADB«AF+40 

<HP> 

10010 

REM Grafik mit 256 Farben 

<EG> 

10140 

PQKE A,112:POKE A+Xl,240:POKE A+X2 


10020 

REM Aufruf mit D=USR(*600,GTlAMode 


,240 


<ZS> 

) 


<BF> 

10150 

FOR I=A+X3 TO A+X3+(191*X3> STEP 6 

<ZD> 

10030 

REM Ausschalten mit D=USR(S600,0) 

<cx> 

10160 

POKE I,SCF 

<SM> 

10040 

REM Helligkeitsbild bei AH=S8010 

<MH> 

10170 

DPDKE I+Xl,ADA 

<HA> 

10050 

REM Farbbild bei AF«SA020 

<PL> 

10180 

ADA-ADA+80 

<LG> 

10060 

AH=S8010sAF«SA010 

<77 > 

10190 

POKE I+X3,SCF 

<LF> 

10070 

POKE AH,X0:MOVE AH,AH+X1,S1DFF 

<TÜ> 

10200 

DPOKE 1+4,ADB 

<QZ> 

10080 

MOVE AH,AF,S1E00 

<XM> 

10210 

ADB=ADB+S0 

<LD> 

10090 

PQKE 106,120;REM Speicher schuetze 


10220 

NEXT I 

<FX> 

n 


<ZÖ> 

10230 

POKE 1,65 

<D8> 

10100 

— 

<JF> 

10240 

DPOKE I+Xl,A 

<ZZ> 

10110 

REM Display—List auf bauen 

<70 




10120 


<JN> 

Listing. »FÄRB 256* 





















10250 A=S7C00:ADA=AF:ADB=AH+40 <SF> 

10240 PDKE A , 112 sPGKE A+Xl,112: POKE A+7 P 2 
,240 <YA> 

10270 FÜR I=A+X3 TO A+X3+Q9l*%3> STEP 6 <ZO> 

10280 POKE I,$CF <TH> 

10290 DPOKE 1+7.1,ADA <i*l> 

10300 ADA=ADA+80 <KG> 

10310 POKE I+X3,$CF <KF> 

10320 DPOKE I+4.ADB <RK> 

10330 ADB=ADB+B0 <LO> 

10340 NEXT I <GI> 

10350 POKE 1,45 <Dff> 

10340 DPOKE I+Xi,A;GRAPHICS 0 <RG> 

10370 BLOAD "Ds CDL254.BIN“:REM Grafikerw 
eiterung laden <I1> 

10380 ENDPROC <VH> 


Usting. »FÄRB 256« (Schluß) 


100 EXEC FAR8256_INIT <LÖ> 
110 D— USR ($0600 ,64 > <RT> 
120 POKE 106,120 <tf£> 
130 COL=3:LUM=6 <QH> 
140 DPOKE 88,AH <QH> 
150 POKE 87,9 <ÖE> 
160 FOR 1—0 TO 79 <AB> 
170 COLOR INT < I/5> <HR> 
180 PLOT 1,0:DRAWTO 1,191 <HF> 
190 NEXT I <GJ> 
200 DPOKE 88,AF <FC> 
210 FOR 1=0 TO 191 <DY> 
220 COLOR INTCI/12) <ÖX> 
230 PLOT 0,1:DRAWTO 79,1 <2ff> 
240 NEXT I <GA> 
250 OPEN #1,4,0,"K:" <PL> 
260 GET #1,J:CLOSE #1 <RU> 


270 D=U5R($0600,0) <CT> 

280 GRAPHICS 0:END <IH> 

290 — <JV> 

300 PROC FARB256_ INIT <PB> 

310 AH=$S010:AF=$Aßl0 <HÖ> 

320 POKE AH,70:MOVE AH,AH+Xl,$1DFF <SM> 

330 HOVE AH,AF,$1E00 <IE> 

340 POKE 106,120 <NK> 

350 A=$7B0ß:ADA=AH:ADB=AF+40 <OG > 

360 POKE A,112:POKE fi+X1,240%POKE A+X2,2 
40 <m> 

370 FOR I=A+X3 TO A+X3+U91*X3) STEP 6 <$U> 

380 PDKE I,$CF <DJ> 

390 DPOKE I+Xl,ADA <PJ> 

400 ADA=ADA+80 

410 POKE I+X3,$CF <KR> 

420 DPOKE 1+4,ADB <HI> 

430 ADB=ADB+80 <XK> 

440 NEXT 1 <GC> 

450 POKE 1,65 <SU> 

460 DPOKE 1+7,1,A <BS> 

470 A-S7C00 : ADA=AF: ADB=AH+40 < SU > 

430 POKE A,112:POKE A+Xl,112:POKE A+X2,2 
40 <UX> 

490 FOR I=A+X3 TO A+7-3+U 91 *7-3 > STEP 6 <SZ> 
500 FOKE I,$CF <CV> 

510 DPOKE I+Xl,ADA <QV> 

520 ADA=ADA+80 <MR> 

530 POKE X+X3,$CF <KH> 

540 DPOKE 1+4,ADB <HH> 

550 ADB=ADB+80 <XP> 

560 NEXT I <BH> 

570 POKE 1,65 <SZ> 

580 DPOKE I+Xl,A:GRAPHICS 0 <QN> 

590 BLOAD "De C0L256.BIN" <LD> 

600 ENDPROC <KI> 


Demonstrationsprogramm für 256 Farben 


Zeichensätze selbstgestrickt 


Benötigen Sie für ihr Programm ein Copyright- 
Zeichen? Kein Problem. Mit unserem Programm 
lassen sich Zeichen einfach selbst entwerfen und 
in eigene Basic-Programme einbinden. 

S tellen Sie sich folgende Szene vor: Sie sitzen an 
Ihrem Computer und tippen gerade die letzten Zeilen 
Ihres neuen Programmsein. Da durchfährt es Sie wie 
ein Blitz: Sämtliche Umlaute in den begleitendenden Bild¬ 
schirmtexten haben Sie als »ae«, »oe« und »ue« eingege¬ 
ben. Sie taten das ganz automatisch, denn standardmäßig 
hat der Atari Computer keine Umlaute auf der Tastatur, und 
im Laufe der Zeit schreibt man halt die Umlaute nach 
Kreuzworträtsel-Schema. Nur, schön sieht das natürlich 
nicht aus. 

Der Atari hat zwar einen zweiten Zeichensatz eingebaut, 
und dieser enthält auch jede Menge verschiedener Son¬ 
derzeichen. Das deutsche »ß« ist jedoch nicht vorhanden. 

Konstruieren lassen sich die Zeichen mit einem Zeichen¬ 
satzprogramm. Und genau so etwas wollen wir Ihnen hier 
vorstellen: Ein Programm, mit dem Sie völlig problemlos 
eigene Zeichen malen und Zeichensätze in eigene Pro¬ 
gramme einbinden können. 

Das Programm besteht aus zwei Teilen. Der erste Teil, 
das Hauptprogramm, ist in Turbo-Basic geschrieben. Die¬ 
ses Programm benötigt ein weiteres in Maschinensprache 
geschriebenes Programm, das wir als AMPEL-Listing 
gedruckt haben. Speichern Sie es bitte auf der gleichen 
Diskette wie das Hauptprogramm. 


Wenn Sie den »Char-Maker« starten, sehen Sie nach kur¬ 
zer Zeit das Menü. In der linken oberen Ecke befindet sich 
das Fenster zum Malen der einzelnen Zeichen. Gleich dar¬ 
unter steht der Code des gerade bearbeiteten und im Fen¬ 
ster sichtbaren Zeichens. Unter diesem erscheint eine 
Anzeige, die Auskunft über die gerade eingeschaltete 
Farbe gibt, sowie eine Zeile, die über die verwendete Gra¬ 
fikstufe informiert. 

Gleichzeitig leuchtet nach dem Starten des Programms 
in der oberen linken Ecke des Bildschirms ein Quadrat auf. 



Alles auf einen Blick: »CHAR-MAKER« 
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Pragrammname : 

CHAR,OBJ 




0170:00 

00 

ßß 

ßß 

0ß 

ßß 

00 

00 

<72> 

0300:80 

AC 

94 

80 

F0 

05 

6D 

3C 

<94 > 

Länge 


3 

2312 Bytes 



0173:00 

00 

00 

00 

00 

00 

00 

00 

<7A> 

0308:80 

29 

FE 

C9 

28 

90 

0B 

A9 

<1D> 










0130:00 

00 

00 

00 

00 

00 

00 

00 

<82> 

0310:00 

3D 

3C 

80 

AD 

33 

80 

SD 

<AF> 










0133:00 

00 

00 

00 

00 

00 

00 

ßß 

<9A> 

0310:33 

80 

8C 

08 

Dß 

AD 

34 

90 

< A7> 

0000:FF 

FF 

00 

Sß 

ßß 

89 

4C 

49 

<B9> 

0190:00 

00 

00 

ßß 

ßß 

ßß 

ßß 

00 

<92> 

0320:18 

6D 

3D 

Sß 

C9 

12 

90 

08 

<E2> 

0008:83 

4C 

55 

86 

4C 

C7 

86 

4C 

<90 

0198:00 

00 

00 

00 

00 

00 

00 

00 

<9A> 

0323:A9 

00 

SD 

3D 

8B 

AD 

34 

80 

<AB> 

001014A 

87 

4 C 

73 

87 

4C 

DC 

97 

< 17> 

01Aß:0ß 

00 

00 

00 

00 

00 

ßß 

SA 

<2C> 

0338:SD 

34 

3ß 

AD 

3D 

80 

8D 

4A 

<F1> 

001S:4C 

32 

83 

4C 

FA 

33 

4C 

3C 

<52 > 

01A8:0A 

A8 

B9 

4B 

80 

85 

CB 

B9 

<C6> 

0338:SB 

AD 

3C 

80 

8D 

49 

80 

20 

<EB> 

0020:33 

4C 

A3 

30 

4C 

Dl 

SS 

4C 

<44> 

ßlB0:4C 

80 

18 

6D 

57 

30 

85 

CC 

<54> 

0340:14 

82 

A9 

79 

SD 

B0 

02 

A9 

<AF> 

0028:Dl 

88 

4C 

Dl 

38 

4C 

Dl 

88 

<E8> 

0188:60 

AE 

78 

02 

Aß 

00 

8A 

29 

<A0> 

0348:84 

8D 

01 

02 

4C 

62 

E4 

68 

<CF> 

0030:4C 

Dl 

38 

4C 

Dl 

80 

4C 

Dl 

<66> 

01C0:ßl 

D0 

01 

33 

BA 

29 

02 

D0 

<DD> 

0350:EE 

35 

80 

A9 

40 

3D 

0E 

D4 

<39 > 

0033:88 

00 

00 

ßß 

00 

m 

00 

00 

<70 

01CB:01 

CB 

ac 

3A 

30 

A0 

00 

8A 

<8F> 

0353:AD 

57 

8ß 

8D 

07 

D4 

A9 

03 

<ß0> 

0040:00 

00 

m 

00 

00 

m 

00 

00 

<40 > 

01D0:29 

04 

Dß 

01 

88 

8A 

29 

B8 

<37 > 

0360:8D 

ID 

D0 

AD 

2F 

02 

09 

0C 

<50> 

0043:00 

00 

00 

ßß 

ßß 

00 

ßß 

00 

<48> 

ßlDB:Dß 

01 

C8 

98 

AA 

AC 

3A 

90 

<84> 

0368:SD 

2F 

02 

A9 

01 

ÖD 

49 

80 

<67 > 

0050:00 

80 

0i 

00 

02 

00 

03 

80 

<2E> 

0 1 E0:60 

AD 

33 

30 

0A 

0A 

18 

69 

<5D> 

0370:SD 

4A 

80 

A9 

01 

8D 

6F 

02 

<C6> 

0058:03 

F0 

90 

90 

Fß 

90 

A0 

F0 

<B3> 

01E3:30 

AA 

AD 

34 

30 

ßA 

0A 

10 

<56> 

0378:A9 

FF 

3D 

0C 

DB 

A9 

07 

A2 

<Ö6> 

0060:47 

00 

80 

42 

00 

00 

02 

02 

<DD> 

01F0:69 

10 

A3 

60 

8E 

3C 

80 

3C 

<0E> 

0380:82 

AB 

61 

20 

5C 

E4 

A9 

01 

<DC> 

0063:02 

02 

02 

02 

02 

02 

02 

02 

<68> 

01F8:3D 

90 

20 

DB 

81 

EC 

3C 

80 

<9F> 

0388:8D 

49 

80 

8D 

4A 

80 

A5 

53 

<72> 

0070:02 

02 

02 

02 

02 

02 

02 

Aß 

<0E> 

0200:D0 

05 

A9 

00 

8D 

49 

80 

CC 

< 1D> 

0390:8D 

5E 

80 

A5 

59 

SD 

5F 

80 

<72> 

0078:20 

42 

Al 

80 

82 

02 

02 

02 

<BE> 

0208:3D 

80 

D0 

0C 

A9 

00 

3D 

4A 

<EF> 

0398:A9 

59 

8D 

30 

02 

A9 

80 

8D 

<7E> 

0080:02 

02 

02 

41 

59 

90 

ßß 

00 

<5B> 

0210:80 

EC 

3C 

30 

Dß 

02 

18 

6ß 

<F5> 

03A0:31 

02 

A9 

79 

SD 

0B 

02 

A9 

<7D> 

0033:00 

00 

23 

28 

21 

32 

0D 

2D 

<S0> 

0218:38 

60 

AD 

47 

80 

18 

6D 

49 

<A2> 

03A8:84 

80 

01 

02 

A9 

C0 

8D 

0E 

<C1> 

0090:21 

23 

25 

32 

0ß 

0ß 

00 

00 

<B3> 

0220:80 

8D 

47 

90 

AD 

43 

30 

IS 

<1E> 

03B0:D4 

A2 

00 

EE 

35 

OB 

8A 

GE 

<20 

0090:00 

00 

00 

00 

00 

00 

0A 

00 

<AC> 

0220:SD 

4A 

80 

AE 

37 

30 

F0 

04 

<DF> 

03B8 : 94 

80 

20 

26 

84 

AE 

94 

80 

<09 > 

00A0:54 

00 

0A 

00 

00 

00 

ßß 

00 

<FB> 

0230:18 

6D 

4A 

90 

8D 

43 

aß 

A2 

<F5> 

03C0:9D 

Al 

80 

E3 

D0 

Fß 

20 

D5 

<3F> 

00A3:00 

00 

00 

00 

m 

00 

00 

00 

<A3> 

0238:ßß 

A0 

02 

36 

CB 

98 

18 

6D 

<1E> 

03CS:34 

A9 

00 

8D 

35 

80 

60 

18 

<46> 

0080:00 

00 

00 

00 

00 

00 

00 

ßß 

<B0> 

0240:57 

80 

85 

CC 

Aß 

7F 

A2 

03 

<60 

03D0:A5 

5© 

65 

CD 

8D 

42 

80 

AS 

<B4> 

ß0B8:0B 

00 

00 

00 

00 

00 

00 

00 

<BS> 

0248:A9 

00 

91 

CB 

88 

C0 

FF 

B0 

<93 > 

03D8:59 

69 

00 

3D 

43 

80 

A5 

CE 

<6B> 

0020:00 

00 

00 

ßß 

00 

m 

00 

ßß 

<Cß> 

0250:F9 

AC 

48 

90 

BD 

53 

90 

91 

<AO 

03E0:Fß 

13 

AD 

42 

30 

18 

69 

28 

<D2> 

00C3:00 

00 

00 

00 

00 

00 

00 

00 

<CB> 

0258:CB 

C8 

CA 

10 

F7 

AE 

47 

80 

<AB> 

03E8:8D 

42 

80 

90 

03 

EE 

43 

80 

<74> 

00Dß:ßß 

ßß 

ßß 

00 

00 

00 

00 

00 

<Dß> 

0260:BE 

00 

Dß 

60 

4C 

3C 

93 

A5 

<2A> 

03Fß:C6 

CE 

IS 

90 

E9 

AD 

42 

30 

<5D> 

00DO:00 

00 

00 

00 

00 

00 

00 

00 

<D8> 

0268:14 

48 

29 

10 

Dß 

04 

63 

49 

<16> 

03F8:85 

CD 

AD 

43 

50 

35 

CE 

60 

<88 > 

00 E0:ßß 

ßß 

ßß 

00 

00 

00 

00 

ßß 

<Eß> 

0270:FF 

48 
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Das ist der Cursor des Programms. Mit ihm werden die ein¬ 
zelnen Menüpunkte ausgewählt. Wenn Sie jetzt einen Joy¬ 
stick an Porti anschließen, können Sie den Cursor mit dem 
Joystick über den gesamten Bildschirm bewegen. Fahren 
Sie einmal über einzelne Menüpunkte hinweg. Sie sehen 
dann, daß die Menüpunkte, über denen der Cursor gerade 
steht, invers dargestellt werden. Indem Sie den Joystick¬ 
knopf drücken, wählen Sie den jeweiligen Menüpunkt an. 
Die einzelnen Menüpunkte bedeuten folgendes: 

Eingabe: Damit läßt sich ein Zeichen aus dem Zeichen¬ 
satz in den Zeichenbildschirm kopieren, um es zu verän¬ 
dern. Nachdem Sie diesen Menüpunkt angewählt haben, 
erscheint unter der Codezahl ein kleiner Pfeil- Indem sie 
den Joystick dann hinauf- oder hinunterdrücken, läßt sich 
die Codezahl abwandeln . Der Pfeil ist auch nach rechts und 
links verschiebbar, um die Zehner- und Hunderterstellen 
der Codezahl zu verändern. Durch Druck auf den Joy¬ 
stickknopf beenden Sie die Eingabe, und das ausgewählte 
Zeichen erscheint im Zeichenfenster 

Nächstes Zeichen: Mit diesem Menüpunkt wählen Sie 
das Zeichen mit der darauffolgenden Codezahl aus und 
holen es vom Zeichensatz ins Zeichenfenster 

Lösche Zeichen: Das Zeichen mit der ausgewählten 
Codezahl wird gelöscht. 

Kopiere Zeichen: Kopiert ein über die Codezahl aus¬ 
wählbares Zeichen an die gerade bearbeitete Stelle des 
Zeichensatzes. 

Lösche alles: Löscht den gesamten Zeichensatz. 

Intern. Zeichensatz: Hiermit kopiert man den Atari- 
Zeichensatz mit den internationalen Sonderzeichen in den 
Arbeitsspeicher des Programms. 


Standardzeichen: Wie oben, nur mit dem normalem 
Zeichensatz. 

BSAVE: Speichert einen Zeichensatz auf Diskette. 

BLOAD: Lädt einen Zeichensatz von Diskette. 

Directory: Zeigt das Inhaltsverzeichnis der Diskette an. 
Gleichzeitig läßt sich ein Zeichensatz wie bei BLOAD 
laden, indem der jeweilige Directory-Eintrag mit dem Cur¬ 
sor aosgewählt wird. 

Spiegeln: Das Zeichen im Zeichenfenster wird gespie¬ 
gelt, wobei zwei Spiegelachsen zur Verfügung stehen. 
Diese werden durch Hoch-Nieder- oder Links-Rechts- 
Bewegung mit dem Joystick ausgewählt. 

Invers invertiert das Zeichen im Zeichenfenster. Heile 
Punkte werden in dunkle und dunkle Punkte in helle Punkte 
umgewandelt. 

Verschieben: Verschiebt ein Zeichen in der angegebe¬ 
nen Richtung. Die Richtung wird durch den Joystick ausge¬ 
wählt. Bildschirmpunkte, die aus dem Zeichenfenster hin¬ 
ausgeschoben werden, kommen am gegenüberliegenden 
Rand wieder zum Vorschein. 

Graphics 0 stellt den gesamten Zeichensatz in dieser 
Grafikstufe dar. Ein Zeichen besteht aus acht mal acht 
Punkten. 

Graphics 1 stellt den Zeichensatz in Grafikstufe 1 dar. 
Ein Zeichen besteht ebenfalls aus acht mal acht Punkten. 
Eine extra Anzeigemöglichkeit für Grafikstufe 2 ist nicht ein¬ 
gebaut, da die Zeichen dort zwar doppelt so hoch darge¬ 
stellt werden, ansonsten aber genauso aufgebaut sind wie 
in Grafikstufe 1. 

Graphics 12: ln einem Zeichen lassen sich jetzt vier Far¬ 
ben darstellen. 
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Lösche Teil: Damit läßt sich ein beliebig langer Block von 
Zeichen aus dem Zeichensatz löschen. Mit der Codezahl 
werden das erste und das letzte zu löschende Zeichen aus¬ 
gewählt. 

Lade Teil: Aus einem auf der Diskette vorhandenem Zei¬ 
chensatz wird ein beliebig langer Teil in den gerade bear¬ 
beiteten Zeichensatz geladen. Das erste und das letzte zu 
ladende Zeichen wird über die Codezahl ausgewählt. 

LIST: Mit diesem Befehl läßt sich ein beliebiger Teil aus 
einem Zeichensatz in ein Basic-Programm einbauen. Das 
Programm fragt dann, an welcher Speicherseite es stehen 
soll (siehe auch Beitrag »Die Handschrift des Computers« 
in diesem Heft). Dann wird nach dem ersten und letzten zu 
übertragenden Zeichen gefragt. Wollen Sie den gesamten 
Zeichensatz übertragen, so geben Sie 0 und 127 ein. 
Anschließend folgt die Frage, ob ein zweiter Block mit Zei¬ 
chen gespeichert werden soll. Diese beantwortet man mit 
»ja«, indem man den Joystickknopf drückt, oder mit »nein«, 
indem man den Joystick hinauf oder hinunter bewegt. 
Dann folgt die Frage nach der ersten Zeilennummer im Pro¬ 
gramm sowie nach der Schrittweite der Nummern. Zuletzt 
fragt das Programm nach dem Namen, den es dem File 
geben soll. Auf der Diskette wird dann ein ASCII-File unter 
dem angegebenen Namen gespeichert. Dieses wird mit 
dem »ENTER«-Befehl in ein Basic-Programm eingebun¬ 
den. Das auf der Diskette erzeugte File enthält gleichzeitig 
ein Ladeprogramm, das den Zeichensatz unter Basic 
installiert. 

Farben verändert die gerade ausgewählte Farbe. 

Ein Zeichen editiert man, indem man mit dem Cursor ins 
Zeichenfenster fährt und dort durch Druck auf den Joy¬ 


stickknopf Punkte setzt oder löscht. Ein Zeichen läßt sich 
zusätzlich auswählen, indem Sie mit dem Cursor auf die 
Codezahi fahren und den Knopfdrücken. Sie erhalten dann 
die gleiche Funktion wie beim Menüpunkt »Eingabe«. 

Tritt beim Laden oder Speichern auf Diskette ein Fehler 
auf, so wird die Fehlernummer unter den Menüpunkten 
gezeigt. Um mit dem Programm fortzufahren, müssen Sie 
dann den Joystickknopf drücken. (Thomas Richter/hf) 


Steckbrief 

Programm: 

Char-Maker 

Sprache: 

Turbo-Basic 

Eingabehilfe: 

Prüfsummer und AMPEL 

Datenträger: 

Diskette 


2 DPOKE 56t,DPEEK(528) <OY> 

5 TRAP 5:CLOSE #l:OPEN #1,4,0,"DsCHAR3.D 
8 J":CLOSE #1 <DH> 

13 GRAPHICS 0:PQKE SS9,0:DLO=DPEEKC560> : 

PAUSE 0sCOL=$S09B <US> 

15 POKE COL,0:POKE COL+1,10sPOKE COL+2,0 
:POKE COL+4,0 <SJ> 

20 BLOAD ■'Ds CHAR3.OBJ":POKE 559,34 <Y6> 

30 POKE SS058,*A0:POKE 5A000,0:MDVE $A00 


Listing. »CHAR.BAS«, bitte mit Prüfsummer eingeben 


























0,£A001,£03FF <ÄH> 

40 U=USR(£8000 )* MC0=3s GRAF-0 sAS-32: POKE 
705,£32:POKE 711,0:POKE 706,£76:POKE 707 
,£1A <YS> 

50 POKE 756,£CC:SETCOLOR 0,8,6:SETCOLOR 
4,8,0:Din F$(20>,FIS(20>,H£(40),AN<16>,E 
NC 16),ANAD(16) ,ENAD(I6) <EY> 

60 EXEC MENUE:YA=-1;EXEC GR0 <SH> 

65— <ZL> 

70 X-PEEK < £8033):Y=PEEKC £8034):XH=11+18* 

(X>23):POKE 77,0 <OV> 

80 IF X<8 AND Y<8 THEN GO# ZEE1D <£4> 

81 IF Y=9 AND X>=5 AND X<=7 THEN X=11:Y= 

2:GOTO 120 <GO> 

90 IF CY<2 OR Y>11> OR CX<11 OR CX>26 AN 
D X<29)> THEN IF YA >0: U=USR(£8015,XA,YA, 
11+5*(XA<29)):YA=-1:ENDIF :GOTO 110 <B&> 

100 IF YOYA AND YA>-1 THEN U=U5R C$8015, 
XH,YA, 11+5*(XA<29) > :U=USR (£8015, XH, Y, 11 + 

5* CXH<29));XA=XH:YA=Y <DY> 

101 EF YOYA AND YA=~1 THEN Ü=USR(£8015, 

XH,Y,11+5*(XH<29>):YA=Y:XA=XH <VL> 

110 EF PEEK<£D01F)=5 AND STICK(0) = 15 THE 

N EXEC FARBUM <HK> 

120 IF STRIG<0> =1 THEN 70 <BU> 

122 IF (X>=1 AND X< =4) AND CY>=11 AND Y< 

=14) THEN MCO=Y-ll:EXEC GONG:IF GRAF<12: 
MC0=3*MC0:ENDIF :EXEC PARAM:GOTO 70 <OK> 

125 IF (Y<2 OR Y>11) OR CX<11 OR (X>26 A 
ND X<29) > THEN EXEC GONG: GOTO 70 <M> 

130 MN=(Y-2)+10*{X>28)+1=PAUSE 0sEXEC GO 
NB <TK> 

135 IF STICK (0X15 THEN 70 <ÄL> 

140 ON MN EXEC EIN,NAE,LOE,KOP,ALO,IN£,S 
T A,ßSA T BLO,DIR,SPI,INV,VER,GR0,GR1,GR2,D 
RE,PRO,LIS,END < Ytf > 

150 POKE 77,0:PAUSE S=GQTÜ 70 <QD> 

151 — <JP> 

152 # NEWPO:U=USR(£8015,XA,YA,11+5*-(XA<2 
9)>:XHN=11 + 18* CXN>28):U=USR(£8015,XHN,YN 

,11+5*CXHNC29)):GOTO 70 <XK> 

155 — <KB> 

160 # ZEEID:XA=—I:YA=-1 <TK> 

170 PAUSE 1:X=PEEK (£8033):Y—PEEK(£8034> <JH> 

180 IF X>7 OR Y>7 THEN YA=-I:GDTO 70 <TÜ% 

185 IF STICKC0>-15 AND PEEK<£D01F>=5 THE 
N EXEC FARBUM <HV> 

190 IF STRIG(0)=1 THEN 170 <ZN> 

195 BW-MCOs IF GRAF012 AND MCO=3 THEN BW 

=1 <JU> 

196 IF GRAF=12 THEN U=USR(£8006,AS,C7-X> 

—1,Y,BW):GOTO 210 <QJ> 

200 U=USRC£8006,AS,7-X,Y,BW> <AZ> 

210 U=USR($8003,AS):POKE £D01F,0:XA=XsYA 
—Y <SK> 

220 GOTO 170 <OK> 

999 — <LD> 

1000 RROC MENUE:POKE 752,1:POKE 82,8:POK 
E 83,39: POKE 87,0:7 11 CESC CTL O";:P0SIT 

ION 8,0 <AZ> 

1010 7 11 1_ von^THOR—Sof tware A (c) ^1986/87 

<ffC> 

1020 ? M 2 11 <KX> 

1030 7 ,( 3 M Eiegeln 11 <HX> 

1040 ? ■ , 4^NCCTL KJchstes^ZeichenüInver 


s" <S£> 

1050 ? "5**L<CTL 0}scheAAiZeichen**yersc 
hieben"; <KB> 

1060 ? ”6^*Kopiere^*Zeichen*^Graphics*0" <DM> 
1070 ? "7*^LCCTL OJsche^al Ies**^*«Graph 
ics*l" <JX> 

1080 ? "8üI ntern«*Zeichen^ußraphics* 12 
" <F£> 

1090 POSITION 0,8:7 "87654321_Standart 

zeichen***LCCTL GJsche*TeiI”; <MI> 

1100 ? "***BSAVE*************Lade*Teil M ■ <BZ> 
1110 7 "*^BLOAD*^—„ Ä *****LIST N <PS> 

1120 7 rectory^* AAA xA**Farben” <MI> 

1121 POSITION 0,16:7- "___ 

_<W> 


1130 EXEC PARAM:ENDPROC <TQ> 

1140 PROC PARAM:FÜR 1=11 TO 14:POSITION 
2,Is ? "****";:NEXT I <BN> 

1150 POSITION 0,9:7 " Code: 11 ; : VL=AS: EXEC 
PRIN <ÜK> 

1160 POSITION 0,15:7 "Moduss";GRAF; 'V*"; <Ptf> 

1170 POSITION 10,14:? "-Keine^Fehier-" <JK> 

1180 IF GRAF=0 OR 6RAF=1 <KF> 

1190 POSITION 4,11 + < MC0=3):7 "CESC ESO C 
ESC CTL +J"; <OZ> 

1200 ELSE :POSITION 2,11+MCO:? "CESC ESC 
> CESC CTL +J 11 ; : ENDI F <KC> 

1210 ENDPROC <0J> 

1220 PROC PR IN: H$= "000 14 <SJ> 

1 230 F$=STR£ ( VL ):H£ (4—LEN <F£))=F£: 7 H£; : 
ENDPROC <BT> 

1240 PROC FARBUM:IF GRAF=0 OR GRAF=1 <UF> 

1250 POSITION 4,11+ <MC0=3>;7 " A "; <6B> 

1260 ELSE :POSITION 2,11+MCD:? "* M ;:ENDI 
F <JC> 

1 270 MCO—MCO+1+2* C GRAF<>12) <£P> 

1230 IF MCO>3 THEN MGO=0 <ÜF> 

1290 EXEC PARAM:EXEC GONG:ENDPROC <PY> 

1300 PROC GONG:FOR 1=15 TO 0 STEP -1:S0U 
ND 0,120,10,1:SOUND 1,121,10,I:PAUSE 0:N 
EXT I:ENDPROC <£*> 

1310 PROC PLOF:POKE £8035,1:POKE 53248,0 
:ENDPROC <CR> 

1320 PROC PLON:POKE £3035,0:ENDPROC <MH> 

1330 PROC SHURE <IK> 

1340 SOUND 0,60,10,10:REPEAT :UNT1L STRI 
G(0 > =1 <SE> 

1350 POSITION 11,17s? N Sanz-kSicher7(Feue 
rknopf:YE=0:PAUSE 3 <UP> 

1360 FOR 1=10 TO 0 STEP -0,2 <ÖY> 

1370 SOUND 0,144,10,1:SOUND 1,145,10,1 <KS> 
1380 IF STRIG(01=0 THEN YE=1:EXIT <P£> 

1390 IF SUCK (0)015 THEN EXIT <JG> 

1400 PAUSE 0:NEXT I:SOUND 0,0,0,0:SOUND 
1 ,0,0,0 <HK> 

1405 REPEAT :UNTIL STRIG(0)=1 <HV> 

1410 POSITION 0,17:7 "CESC SHIFT »CESC 
SHIFT DELJCESC SHIFT DEL>";:IF YE=0 THEN 

PDP : POP : GOTO 70 <MJ> 

1420 ENDPROC <DQ> 

1430 PROC DISKIN:DPOKE 560,DLO:POKE £D40 
E,£40:SETCOLOR 4,3,4:SETCOLOR 2,0,10:SET 
COLÜR 1,0,0 <FA> 

1450 POKE 82,0:POSITION 0,19 <TS> 

1470 ? "^^^ Di skettenzuqrl-Ff <SG> 

1480 7 "^^^elnen AAugenbl i ck^ Gedul ! " <GZ> 
1500 POKE 82,8:POSITION 8,2:EXEC PLOF <80 

1510 ENDPROC <0P> 

1520 PROC DISKOU:U=USR(£8000):EXEC PLDN: 

SETCOLOR 4,8,0:SETCOLOR 0,8,6 <££> 

1521 POSITION 0,18:7 "CESC SHIFT »CESC 
SHIFT DEL> CESC SHIFT DEL>CESC SHIFT DEL> 

CESC SHIFT DELICESC SHIFT DELJCESC SHIFT 

DEL> CESC SHIFT DELJ CESC SHIFT DELJ”;=U= 

USR(£8003,AS):ENDPROC <X0> 

1530 PROC FILEIN:POKE 752,0 <8J> 

1540 TRAP 1540: POSITION 0,17:7 11 CESC SHI 
FT »CESC SHIFT DEL J CESC SHIFT DELJ": <HC> 

1550 POSITION 11,17:7 "Fi1ename^Dl:"; <Qf> 

1560 INPUT 14 CESC CTL *J CESC CTL +>“,F£;F 
I£="D:"s FIS(3)=F£:POSITION 0,17=7 "CESC 
SHIFT »CESC SHIFT DELJ CESC SHIFT DELJ"; 

:TRAP 40000:POKE 752,1:7 "CESC CTL *JCES 
C CTL +J";:ENDPROC <LH> 

1570 PROC SEGENI:ASS=AS <FR> 

1580 POSITION 11,17:7 "Erstes**Zeichen" <CH> 
1590 EXEC EIN:AN=AS <SF> 

1600 POSITION 11,17:7 "L&tzteSiZeieben" <ÜY> 
1610 EXEC EIN:EN=AS:AS=ASS:POSITION 5,9= 
VL=AS:EXEC PRIN <YT> 

1620 ANAD=ÜSR(£8018,AN):ANI=PEEK(209 > < AG> 

1630 ENAD=USR(£3018,EN):ENI=PEEK(209) <JJ> 

1640 POSITION 11,17:7 "CESC SHIFT >JCESC 

SHIFT DELJCESC SHIFT DELJENDPROC <#£> 

2000 PROC EIN:EXEC PLOF <QS> 

2010 H$=STR$CAS)r X=7:FI£="000":FI£(4—LEN 
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CH$> >=H$sPAUSE 2 <Ci/> 

2020 PAUSE 2:ST=5TICKC0) : W=ASC(FI$ (X~4) ) 

-48:SOUND 0,0,0,0 <*Z> 

2030 IF ST =11 AND X>5 THEN X=X-1:W=ASC(F 
IS CX—4>)—43 <IJ> 

2040 IF ST—7 AND X<7 THEN X=X+1:W-ASC(FI 
$ CX—4))—48 <AZ> 

2050 IF ST=13 THEN W=W-1:IF W=-i THEN W= 

9 <RJ> 

2060 IF ST =14 THEN W=W+1:IF 14=10 THEN W= 

0 <F0> 

2070 FI$(X-4,X-4}=CHR$(W+48}:POSITION 5, 

9s? FIS <XR> 

2080 POSITION X-1,10:7 "*{ESC ESCXESC C 
TL ->*";:IF STOIS THEN SOUND 0,60,10,10 <FG> 

2090 IF STRIG { 0) = I THEN 2020 <DG> 

2091 AS—VAL CFIS):IF AS>127 THEN EXEC GON 

G:GOTO 2020 <Qü> 

2100 U=USR($8003,AS):VL=AS:POSITION 5,10 
:? "****" ; : SOUND 0,0,0,0: EXEC PLONj ENDPR 
QC <BR> 

2110 FROC NAE:AS=AS+1:IF AS=128 THEN AS= 

0 <HK> 

2120 U=USR($8003,AS)»POSITION 5,9:VL=AS: 

EXEC PRIN:ENDPROC <#fX> 

2130 PROC LOE:EXEC SHURE <SK> 

2140 U=U5R($B018,AS) <VU> 

2150 FOR I=U TD U+7:P0KE 1,0:NEXT IsU-US 
R($8003,AS):ENDPROC <HA> 

2160 PROC KOPsPOSITION 11,17:7 “Welches* 
Zeichen*?” <BQ> 

2170 ASS—AS:EXEC EIN <K1> 

2180 U=U5R C $8018,ASS):V=USR < $8018,AS) <DU> 
2190 MDVE V,U,8:AS=ASS:U=USRC$8003,AS):P 
□SrTION 0,17:7 "{ESC SHIFT »{ESC SHIFT 
DEL>{ESC SHIFT DEL>"s :POSITION 5,9:VL=AS 
:EXEC PRIN:ENDPROC <Tff> 

2200 PROC ALO:EXEC SHURE:POKE $A000,0:110 
VE $A000,$A001,S03FF < HG > 

2210 U=USRC$8003,AS):ENDPROC <FR> 

2220 PROC INE»EXEC SHURE:U=USRC$801B,$CC 
):U=USRC$8003,AS):ENDPROC < VL > 

2230 PROC STA:EXEC SHURE:U=USRC$801B,$E0 
)sU=USRC $8003,AS):ENDPROC < Al > 

2240 PROC BSA:EXEC FILEIN:FOKE 752,0 <MQ> 

2250 TRAP 2250:POSITION 0,17:7 “{ESC SHI 
FT »{ESC SHIFT DELXESC SHIFT DEL> 11 ; <V0> 

2260 POSITION 11,17:7 "In*welche*Page?*9 
6{ESC CTL +> CESC CTL + >"; <NG> 

2270 INPUT "{ESC CTL *>{ESC CTL +>",PS:P 
OKE 752,1 <Etf> 

2280 POSITION 0,17:7 "{ESC SHIFT »CESC 
SHIFT DELXESC SHIFT DEL} 11 ; <ES> 

2290 EXEC DISKIN <SS> 

2300 TRAP #ERRQ;OPEN #2,8,0,FIS <FQ> 

2310 PUT #2,$FF,SFF,0,PG,SFF,PG+3 <YU> 

2320 BPUT #2,$A000,$0400 <XU> 

2330 CLOSE #2:EXEC DISKOU:TRAP 40000:END 
PROC <IJ> 

2340 PROC BLO:EXEC FILEIN <GW> 

2350 EXEC DISKIN:TRAP #ERRO <Ü0> 

2360 OPEN #2,4,0,FI$s8ET #2,A,A <YJ> 

2370 IF A+AO510 THEN 2400 <ÖC> 

2380 SET #2,A,A,A,A <DX> 

2390 BGET #2,$A000,$0400 <RG> 

2400 CLOSE #2:TRAP 40000:EXEC DISKOU:U~U 
SR C$8003,AS):ENDPROC <AN> 

2500 # ERRO:TRAF #ERRO:CLOSE #2:EXEC DIS 
KOU <TL> 

2510 SOUND 0,12,12,15:SOUND 1,15,12,15 <ÜX> 
2520 PAUSE 40:SOUND 0,0,0,0:SOUND 1,0,0, 

0:POSITION 10,14:7 "**Error*-*";ERR;"*** <QP> 
2530 REPEAT :UNTIL STRIG(0>=0 <KK> 

2540 POSITION 10,14:7 "****-Keine*Feh!er 
—";:POP sPOP :GOTO 70 <7F> 

2550 PROC DIR:EXEC DISKIN <BÜ> 

2560 TRAP #ERRO:OPEN #2,6,0, "D:*" <NÖ> 

2570 TRAP 2620:C-0:POKE 82,8:7 "{ESC CTL 
*XESC CTL +>";:81=DPEEKC88) <HH> 

2580 FOR 1=0 TO 11:AD=B1+I*40+8:POKE AD, 


0:HOVE AD,AD+1,31:NEXT I:FOR 1=690 TO 69 


3:POKE I,255:NEXT I <UB> 

2585 POKE 93,0:E=1 <HA> 

2590 TRAP 2620:INPUT #2,F$:FI$—"":IF F$C 

2,2)0"*" THEN E=0 <YP> 

2591 TRAP 2592:INPUT #2,FIS <4W> 

2592 IF F$C2,2)= "*" THEN F$=F$C3) <JÜ> 

2593 IF FI$< > Hn THEN IF FIS <2,2)="*":FI$ 

=FI$ C 3 >:ELSE :POSITION 8,7:7 "{ESC SHIFT 

DEL}":E=0 s ENDIF < YZ > 

2600 POSITION 8,Cs? F$;"*";FI$ 5 sC=C+1:IF 
0=7 AND E THEN EXEC WTFK:C=0:GOTO 2580 <VQ> 
2610 GOTO 2590 <UK> 

2620 TRAP 40000:EXEC WTFK:EXEC DISKDUsEX 
EC HENUE:CLOSE #2:YA=-1:ENDPROC < CS> 

2630 PROC WTFK:EXEC DISKOU:POSITION 2,17 
: 7 "Bitte*aiiSN{CTL K>hlen*oder*START*dr{ 

CTL JJcken *EXEC DISKCHOI <ÖX> 

2640 REPEAT :UNTIL PEEK($D01F)=7:POSITIO 
N 2,17:7 "{ESC SHIFT »{ESC SHIFT DELXE 
SC SHIFT DEL>{ESC SHIFT »";:EXEC DISKIN 
:ENDPROC <AP> 

2650 PROC SRIsPOSITION 11,17;EXEC PLOF <EG> 
2660 7 "Spiegeln:*{ESC ESCXESC CTL -XE 
SC ESC}{ESC CTL =}":SP=0 <CJ> 

2670 ST=STICKC0> " <J7> 

2680 IF ST=13 OR ST=14 THEN SP=0sPOSITIO 
N 21,17:7 "{ESC ESC 3- {ESC CTL -> {ESC ESC} 

{ESC CTL =}":EXEC GONG <FD> 

2690 IF ST=7 OR 5T=li THEN SP=1:POSITION 
21,17s? "{ESC ESO {ESC CTL + XESC ESO { 

ESC CTL *}":EXEC GONG <XK> 

2700 IF STRIB(0)=1 THEN 2670 <NY> 

2710 IF SP=1 THEN 2750 <HH> 

2720 U=ÜSR <$8018,AS >:HOVE U,$0600,8:FOR 
1=0 TO 7:POKE U+I,PEEK($0680-*-<7-1)):NEXT 
I <SZ> 

2730 U=USR($8003,AS):GOTO 2760 <JO> 

2750 U=USR($800C,AS):U=USR($8003,AS) <DB> 

2760 EXEC PLON:POSITION 0,17:7 "{ESC SHI 
FT »{ESC SHIFT DELXESC SHIFT DEL>"$:EN 
DPROC <RK> 

2770 PROC INV:U=USR($S00F,AS):U=USR($S00 
3,AS):ENDPROC <XC> 

27B0 PROC VER:SP=0:EXEC PLOF <VH> 

2790 POSITION 11,17:7 "Verschieben:*{ESC 
ESO {ESC CTL <AE> 

2800 ST=STICKC0) <IR> 

2810 IF ST=I4 THEN SP=0:POSITION 24,17:7 

"{ESC ESO{ESC CTL ->":EXEC GONG <VU> 

2811 IF ST=I3 THEN SP=1:POSITION 24,17:7 

"{ESC ESO{ESC CTL =>":EXEC GONG <YA> 

2820 IF ST=7 THEN SP=2:POSITION 24,17s? 

"{ESC ESO{ESC CTL *>":EXEC GONG <KQ> 

2821 IF ST-11 THEN SP=3:POSITION 24,17:7 

"{ESC ESO{ESC CTL +>":EXEC GONG <AP> 

2830 IF STRIG(0> =1 THEN 2800 <JC> 

2840 POSITION 0,17:7 "{ESC SHIFT »{ESC 
SHIFT DELXESC SHIFT DEL> " ; <ES> 

2S50 POSITION 11,17:? «Wie^ft*?*l" :OFT= 

1 <VG> 

2860 PAUSE 3:ST—STICK(0):SOUND 0,0,0,0 <ÜI> 
2870 IF ST-13 AND OFT» THEN 0FT=0FT-1 <JÜ> 

2380 IF ST=14 AND 0FT<7 THEN 0FT=QFT+1 <££> 

2890 IF STOIS THEN SOUND 0,60,10,10 <LÖ> 

2900 POSITION 21,17s? CHR$(OFT+43); <W«> 

2910 IF STRIG C0> = 1 THEN 2860 <PE> 

2920 ON SP+1 EXEC UP,DO,LR,LR <ÜR> 

2930 U=USR($8003,AS)sEXEC PLON:POSITION 
0,17:7 "{ESC SHIFT »{ESC SHIFT DELXESC 
SHIFT DEL y ";:ENDPROC < EU> 

2940 PROC UP:U=USR($8018,AS):FOR 1=1 TO 
OFT:A—PEEK(U):MOVE U+1,U,7:P0KE U+7,AsNE 
XT I:ENDPROC <ZD> 

2950 PROC DO:U=USR($8018,AS):FOR 1=1 TO 
OFT <R0> 

2960 A=PEEK(U*7):-MOVE U,U+1,7:POKE U,A: 

NEXT I:ENDPROC <UA> 


Listing. »CHAR.BAS« (Fortsetzung) 
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2970 PRQC LR:SW=i <AA> 

2980 IF SF=3 THEN SW=0 <SÖ> 

2990 U=USR($80i2,AS,SW,OFT) :ENDPROC <W> 

3000 PROC GR0 <1Z> 

3010 U—USR C$8009, 2 ) s PÜKE $8033,0:GRAF=0: 

POKE COL+1,PEEK C 707>:PÜKE CQL+2,PEEK <711 
>:PÜKE CQL+4,PEEK(711) <UH> 

3015 EXEC CLFAU:ENDPROC <SJ> 

3020 PRQC GR1 <JS> 

3030 U“USRC$8009, 6 ) :PÜKE $8038,0:GRAF=1 <HS> 

3040 FÜR X=CÜL TO C0L+3:P0KE I,PEEKC707> 

:NEXT I:POKE CÜL+4,PEEK<711>:EXEC CLFAU: 
ENDPROC <TÜ> 

3050 PRÜC GR2 <KO> 

3060 U=USRC $8009,4):PÜKE $8038,1:GRAF=12 < VV> 

3070 FÜR 1=0 TO 2:POKE CÖL+I,PEEKC705+1> 

:NEXT IsPOKE COL+3,$C 8 :POKE C0L+4,PEEKC7 
11):EXEC CLFAU <MK> 

3071 PÜKE $8049,255:ENDPROC <MC> 

3080 PRQC CLFAU:U—USR($8000) <PS> 

3090 FOR 1=11 TO 14 <RR> 

3100 IF I< 13 THEN POSITION 4,1:? <Ttf> 

3110 POSITION 2,1:? <AX> 

3120 NEXT IsIF CMCO=l GR MC0=2> AND GRAF 

< >12 THEN MC0=3 <MQ> 

3130 EXEC PARAMjPAUSE 0:U=USR<$8003,AS): 

PAUSE 0:ENDPROC <CP> 

3140 PRQC DRE <ST> 

3150 EXEC SHURE:EXEC BESENI <AR> 

3160 POKE ANAD,0:MOVE ANAD,ANAD+l, CENAD— 

ANAD)-1+7:U=USRC$8003,AS):ENDPROC <OA> 

3170 PROC PRO:EXEC BESENI 5 EXEC FILEIN <BB> 

3180 EXEC DISKIN:TRAP #ERRO <DU> 

3190 ÜPEN #2,4,0,FI$ <LG> 

3200 GET #2,A,B:IF A+BO510 THEN 3300 <£/£> 

3210 SET #2,A,B,C,D <HD> 

3220 BGET #2,$A800,$0400 <V1> 

3230 MDVE ANAD+$0800,ANAD,ENAD-ANAD+7 < TF > 

3300 CLOSE #2sEXEC DISKOU <FT> 

3310 TRAP 40000:U=USR l $8003,AS):ENDPROC < YD> 

3320 PROC LIS <YX> 

3330 PÜKE 752,0:POSITION 0,17:? "CESC SH 
IFT »CESC SHIFT DEL}{ESC SHIFT DEL>";:P 
OS IT ION 11,17s? (i Ab*weI eher *Page? *96 CESC 
CTL +} CESC CTL +} " ; <HJ> 

3340 TRAP 3330: INPUT 11 {ESC CTL *} CESC CT 
L +>",BES <HI> 

3350 BEAD=BEG*256:POKE 752,1:? "{ESC CTL 
*7 CESC CTL +>.*'; : K=2 ■ <RU> 

3360 POSITION 0,17:? " CESC SHIFT »CESC 
SHIFT DEL}CESC SHIFT DEL}";:TRAP 40000 <DH> 
3365 IF PEEK ($D01F> =6 THEN ANADCK-2)=32: 
ENADCK-2)=127:GOTO 3410 <VA> 

3370 EXEC BEGENIsANADCK-2)=ANAD:ENAD(K-2 
)=£NAD:AN CK—2)=ANI:EN <K—2)=ENIsIF ENAD<A 
NAD THEN 3370 <HC> 

3380 POSITION 0,17:? "CESC SHIFT »CESC 
SHIFT DEL} CESC SHIFT DEL} 11 ;:POSITION 0,1 
7:? K; 11 ten*Block^eingeben? (Knopf=ja, CESC 
E5CJCESC CTL ->CE5C ESO CESC CTL =}=nei 
n ) “;:EXEC PLOF <XH> 

3390 IF STRIG C0)—0 AND K<18 THEN K=K+1:G 
OTO 3360 <PJ> 

3400 IF STICK(0)=15 AND K<18 THEN 3390 <&V> 

3410 POSITION 0,17:? "CESC SHIFT >3- CESC 
SHIFT DEL> CESC SHIFT DEL) 11 5 ; TRAP 3410: PO 
KE 752,0 <AR> 

3420 POSITION 11,17:? "Startzeilennummer 

INPUT "CESC CTL *7 CESC CTL +}%ZN <QN> 

3430 TRAP 3430:POSITION 0,17:? “CESC SHI 
FT »{ESC SHIFT DEL} CESC SHIFT DEL}*'; <Ktf> 

3440 POSITION 11,17:? "Schrittweite:10{E 
SC CTL +TCESC CTL +}"; <HU> 

3450 INPUT "CESC CTL *}CESC CTL +}",ZS:T 
RAP 40000 <TI > 

3460 EXEC FILEIN <#R> 

3470 EXEC DISKIN:TRAP #ERRO 

3480 OPEN #2,8,0,FI$ <NH> 

3490 ? #2; ZN? "BA=“;BEAD; 14 : RESTORE" 5 ZN: ZO 
=ZNs EXEC INC <XT> 

3500 ? #2;ZN; ,, READ*A:IF*A<0*THEN*";ZD+ZS 


*3:EXEC INC <ZG> 

3510 ? #2;ZN;"POKE*AD,A:AD=AD+1:GOTO* M ;Z 
0+ZS:EXEC INC <AG> 

3520 ? #2;ZN;"IF*A=-i000*THEN*RETURN":EX 
EC INC <SD> 

3530 ? #2;ZN;"AD=BA+8*INT(ABSCA > >:GOTO"; 

ZO+ZS:EXEC INC <UA> 

3540 FOR J=2 TO K <OF> 

3550 ? #2;ZN;"DATA*-“;AN CJ-2);1":EXEC 
INC <RG> 

3560 AD=ANADCJ-2):FOR L=ANCJ-2> TO ENCJ- 
2) <AU> 

3570 ? #2;ZN;"DATA";:EXEC INC <IH> 

3580 FOR 1=0 TO 7 <AH> 

3590 ? #2;PEEK CAD);:AD=AD+1 <PP> 

3600 IF I<7 THEN ? #2;% H ; <*G> 

3610 IF 1=7 THEN ? #2 <HL> 

3620 NEXT I: NEXT L; NEXT J <PS4> 

3625 ? #2;ZN;"DATA*—1000" <2Y> 

3630 CLOSE #2:EXEC DISKOU:TRAP 40000:END 
PROC <1Q> 

3640 PROC INC:ZN=ZN+ZS:ENDPROC <ZS> 

3650 PROC END:POSITION 11,17 <QG> 

3660 ? "Helligkeit:{ESC ESO{ESC CTL -7C 
ESC ESC}{ESC CTL =}*Farbe:CESC ESOCESC 
CTL +>{ESC ESC}CESC CTL *} Jl <MY> 

3670 IF MCO=0 THEN REG=C0L-2 <B**> 

3680 IF MCO>0 AND GRAF=12 THEN REG=704+M 
CO <XM> 

3690 IF MCO>0 AND GRAF012 THEN REG=707 <OZ> 
3700 EXEC PLDF <«7> 

3710 W=PEEK C REG >' < TH > 

3720 PAUSE 2:ST=STICK < 0) <DG> 

3730 IF STSt 1 =0 AND <W MOD 16) >0 THEN W=W 
-1 <SL> 

3740 IF ST&2=0 AND CW MOD 16X15 THEN W= 

W+l <CR> 

3750 IF STSc4=0 THEN W=W-16: IF W<0 THEN W 
=W+256 <PS> 

3760 IF ST&8=0 THEN W=W+16:IF W>255 THEN 
W=W—256 <sa> 

3770 POKE REE,W <PA> 

3780' IF STRIG C0)=1 THEN 3720 <LR> 

3790 IF REG=COL—2 THEN POKE 71I,W <AA> 

3800 IF GRAF=12 THEN EXEC GR2 <HL> 

3810 IF GRAF=0 THEN EXEC GR0 <TP> 

3820 IF GRAF=1 THEN EXEC SRI <VI> 

3830 POSITION 0,17:? "CESC SHIFT >}{ESC 
SHIFT DEL}{ESC SHIFT DEL}";:EXEC PLON:EN 
DPROC <SM> 

3840 PROC DISKCHOI:YA=—15 BI=DPEEK(88) < XB> 

3850 IF PEEK<$D01F)=6 THEN ENDPROC <DD> 

3855 IF STRIG <0)=0 THEN IF H=0 AND STICK 
(0)=15 AND NOT <X<8 OR Y>6 OR CX>18 AND 
X<24) OR X >34 > THEN 3920 <ZM> 

3860 X=PEEK($8033)sY=PEEKC$8034) <AE> 

3865 H=0:XH=8+16* <X>23>;CPEEK(XH+40*Y+ 

BI))&127:IF W<33 DR W>59 THEN H=1 <TT> 

3870 IF X<3 OR Y>6 OR (X>18 AND X<24) OR 
H OR X>34 THEN IF YA>=0:U=USR<$8015,XA, 

YA,11):YA=—1:ENDIF :GOTO 3350 <YS> 

3880 IF XA=XH AND Y=YA THEN 3850 <TF> 

3890 IF YA>=0 THEN U=USRC$8015,XA,YA,11) <JU> 
3900 XA=XH;YA=Y:U=USR C $3015,XA,YA,11) < SM> 

3910 IF STRIGC0)=1 THEN 3850 <PD> 

3920 FI $= 11 *********** '* <ÖD> 

3930 BD=BI+XH+Y^40 <8K> 

3940 MOVE BD,ADR CFI$) ,11 <YE> 

3950 BD=ADRCFI$);FOR I=BD TO BD+U <ZY> 

3960 W=PEEK <I>:W= < W&127)+32:POKE I,W <FL> 

3970 NEXT I <GE> 

3980 FOR 1=1 TO 8 <ES> 

3990 IF FI$CI,1)=“*" THEN EXIT <UT> 

4000 NEXT I <£S> 

4010 F$C1,I"1)=FI$:F$CI,I)=".":F$<I+I)=F 
I$C9,11):CLOSE #2 <TN> 

4020 EXEC GQNG:FI$=“D:":FI$(3)=F$:POP :P 
OP :EXEC MENUE;YA=—1:GOTO 2350 <FC> 


Listing. ^CHAR.BAS« (Schluß) 
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Ein toller Malkasten 


Viele Firmen bringen Malprogramme auf den 
Markt, die sich nur in wenigen Details voneinan¬ 
der unterscheiden. Unser Malprogramm »Grafik- 
Draw« vereint viele Funktionen und besticht mit 
seinen vielfältigen Grafikstufen. 

M alprogramme für die Atari 8-Bit-Computer sind 
genügend im Angebot. Von Datasoft gibt es den 
»Micropainter«, Atari und Koala-Soft haben das 
»Atari-Artist«-Programm beziehungsweise den »Koala- 
Painter« herausgebracht, und ein weiteres amerikanisches 
Programm namens »Fun with Art« schaltet auf Wunsch in 
jeder Zeile über einen Display-List-Interrupt die Farben um. 
Ganz zu schweigen von den vielen anderen Malprogram¬ 
men kleinerer Softwarefirmen. Warum sollte man also ein 
weiteres derartiges Programm veröffentlichen? 

Zum einen haben die professionellen Programme den 
Nachteil, daß sie nur für viel Geld zu bekommen sind. Zum 
anderen unterstützen sie nicht die vielfältigen Grafikstufen 
der XL/XE-Computer. Grund genug, ein Programm zu ver¬ 
öffentlichen, das die meisten Grafikstufen berücksichtigt, 
eine umfangreiche Bibliothek an Malfunktionen besitzt, 
sowie obendrein noch eine Hardcopy-Routine aufweist, mit 
der ein Bild bequem und schnell auf einem CP-80-Drucker 
von Seikosha ausgedruckt wird. Wenn Sie nur eine Zeile im 
Programm ändern, arbeitet es auch mit anderen Druckern 
zusammen. 

Das Programm »Grafik-Draw« besteht insgesamt aus 
drei Listings. Listing 1 ist das eigentliche Malprogramm. 
Programmteile, die zeitkritische Aufgaben übernehmen 
(Listing 2 und 3), sind in Maschinensprache programmiert 
und werden vom Hauptprogramm nach dessen Start von 
der Diskette dazugeladen. Diese Listings müssen mit dem 
AMPEL-Programm eingegeben und unter den Namen 
»UPADSTK.BIN« und »UK1PDRK.BIN« auf der gleichen 
Diskette wie das Hauptprogramm gespeichert werden. 

Nach dem Start von Grafik-Draw erscheint auf dem Bild¬ 
schirm das Hauptmenü. Der leuchtende Balken wählt die 
einzelnen Menüpunkte aus. Er wird mit einem Joystick oder 
einem Grafik-Tablett wie der Atari-Maltafel bewegt, die in 
Port 1 anzuschließen sind. Um zwischen dem Joystick oder 
der Maltafel als Eingabemedium zu entscheiden, geht man 
auf den Menüpunkt »Zeichengerät« und schaltet dann auf 
Knopfdruck zwischen den beiden Eingabegeräten hin und 


her. Das gerade gültige Zeichengerät wird rechts neben 
dem Menüpunkt angezeigt. 

Das Programm stellt elf Zeichen sowie sechs weitere 
Funktionen zur Verfügung. Wurde eine Zeichenfunktion 
angewählt, so schaltet der Computer vom Menü zum 
gezeichneten Bild. Dort wird mit der Taste <F> die Mal¬ 
farbe festgelegt. Zurück ins Menü kommt man mit der 
< SPACE > -Taste. Folgende Zeichenfunktionen stehen zur 
Auswahl: 

Zeichnen: Freihändiges Zeichnen wird mit dieser Funk¬ 
tion unterstützt. Die Linie auf dem Bildschirm folgt direkt 
dem Fadenkreuz. 

Linie: Beim ersten Druck auf den Joystick/Touch-Tablet- 
Knopfwird der Anfangspunkt, mit dem zweiten Knopfdruck 
der Endpunkt einer zu ziehenden Linie festgelegt. 

Linie folgend: Wie »Linie«, nur daß der Endpunkt einer 
ersten Linie zugleich der Anfangspunkt einer zweiten Linie 
ist. 

Kreis: Der erste Knopfdruck legt den Mittelpunkt eines 
zu zeichnenden Kreises fest. Durch Bewegen des Faden¬ 
kreuzes bestimmt man den Durchmesser des Kreises. 

Ellipse: Wie Kreis, nur daß hierbei eine Ellipse gezeich¬ 
net wird, die in der Horizontalen und Vertikalen unter¬ 
schiedliche Ausdehnungen hat. 

Rechteck: Der erste Knopfdruck bestimmt den obersten 
linken Eckpunkt eines Rechtecks, der zweite Knopfdruck 
den untersten rechten Eckpunkt. Durch diese beiden 
Punkte wird ein Rechteck gezeichnet. 

Rechteck gef.: Wie »Rechteck«. Anschließend wird das 
Rechteck ausgefüllt. 

Ausfällen: Malt eine beliebige schwarze Fläche wird in 
der gewählten Farbe aus. 

Kopieren: Diese Funktion kopiert einen beliebig großen 
rechteckigen Bildschirmausschnitt in einen anderen Teil 
des Bildes. Läßt man den Joystick/Maltafelknopf während 
der Bewegung des Ausschnitts gedrückt, wird mit dem Aus¬ 
schnitt gezeichnet. 

Text: Maximal 20 Zeichen lassen sich eingeben. Mit dem 
Joystick positioniert man dann den Text auf dem Bild¬ 
schirm. Läßt man den Joystickknopf gedrückt, wird mit dem 
Text wie bei »Kopieren« auf Bildschirm gezeichnet. 

Zoom: Mit dem Fadenkreuz wird ein rechteckiger Bild¬ 
schirmausschnitt bestimmt, der über den ganzen Bild¬ 
schirm vergrößert wird. In der Vergrößerung läßt sich nach 
Belieben zeichnen. 
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Die folgenden sechs Menüpunkte sprechen die rest¬ 
lichen Funktionen des Programms an: 

Farben : Auf dem Bi Idsch i rm erscheinen vier Farbbal ken. 
Neben dem obersten Balken befindet sich ein Pfeil, der die 
gerade gewählte Farbe markiert. Mit < START > wählt man 
eine andere Farbe an. <SELECT > verändert die Helligkeit 
der gewählten Farbe und <OPTION> variiert den Farbton. 
Durch <ESC> erfolgt die Übernahme der Veränderungen 
und die Rückkehr in den Zeichenmodus. 

Grafik Stufe stellt die Auflösung des Bildes ein. Die ein¬ 
zelnen Stufen entsprechen denen in Atari-Basic. Zur Aus¬ 
wahl stehen Stufe 5,7,8,9,10,11 und 15. Die gewählte Stufe 
wird rechts neben dem Menüpunkt angezeigt. Stufe 5 bie¬ 
tet 80 mal 48 Punkte, wobei vier Farben frei zu definieren 
sind. In Stufe 7 erhöht sich die Auflösung auf 160 mal 96 
Bildschirmpunkte. Die höchste Auflösung bietet Stufe 8 mit 
320 mal 192 Punkten. Hierbei steht aber nur noch eine 
Farbe in zwei Helligkeiten zur Verfügung. Stufe 9,10 und 11 
sind Unterformen von Stufe 8. Hier werden jeweils vier 
nebeneinanderliegende Punkte zu einem zusammenge¬ 
faßt. Die Auflösung beträgt in diesen Stufen 80 mal 192. ln 
Stufe 9 sind 16 Helligkeiten in einer Farbe verfügbar, und in 
Stufe 11 stehen alle 16 Farbschattierungen einer Hellig¬ 
keitsstufe zur Auswahl. In Stufe 10 sind neun Farben wähl¬ 
bar, wobei jeder eine von insgesamt 256 Farben zugeord¬ 
net wird. In dieser so gut wie überhaupt nicht genutzten 
Grafikstufe des Ataris lassen sich sehr ansprechende Bil¬ 
der zeichnen. 

Löschen: Nach einer Sicherheitsabfrage wird das Bild 
gelöscht. 

Disk: Das Programm verzweigt ins Disketten- 
Untermenü. 

- < D> zeigt das Directory von Laufwerk 1 an. 

- <L> lädt.ein Bild von der Diskette. Dabei wird je nach 
Bild automatisch auf die richtige Grafikstufe umgeschaltef 
und die richtigen Farben gewählt. Bilder vom Atari-Artist 
Programm lassen sich nur dann laden, wenn sie mit 
< INSERT> gespeichert wurden. In diesem Fall legt der 
Atari-Artist die Bilder nicht in komprimierter Form auf Dis¬ 
kette ab. 

- <S> speichert ein Bild auf Diskette. 

- <ESC> kehrt ins Menü zurück. 


Drucken erzeugt eine Hardcopy auf einem CP-80- 
Drucker. Dabei stehen zwei Vergrößerungsstufen zur Aus¬ 
wahl. 

- <1> produziert eine Hardcopy über die halbe Breite 
einer DIN-A4-Seite. 

- <2> druckt ein Bild über eine volle DIN-A4-Seite aus. 

Bei einer Hardcopy über die halbe Breitedes Blattes wer¬ 
den Sie zusätzlich gefragt, ob Sie den Ausdruck in der Mitte 
des Bildes oder nach links oder rechts versetzt haben wol¬ 
len. Der Ausdruck paßt sich dann entsprechend dieser Ein¬ 
gabe an. Auf diese Weise lassen sich zum Beispiel doppel¬ 
seitige Einladungen drucken. 

Mit diesem Menüpunkt läßt sich ein Bild normal oder 
invers aufs Blatt nadeln. Farben werden automatisch in 
Grauwerte umgewandelt. Der Menüpunkt »Drucken« funk¬ 
tioniert nicht mit den Grafikstufen 5 und 7. 

Falls Sie einen anderen Drucker als den CP-80 von Sei- 
kosha besitzen, läßt sich die Hardcopy-Routine folgender¬ 
maßen anpassen: In Zeile 10230 des Turbo-Basie-Pro- 
gramms steht der Drucker-Steuercode zum Drucken von 
Bitmustern. In diese Zeile müssen Sie die Steuercodes 
Ihres eigenen Druckerseintragen. Für einen Epson kompa¬ 
tiblen Drucker muß die Zeile wie folgt aussehen: 

10230 GR$=CHR$(27):GR$(fö)="K # :GR?(^3)=CHR$(192): 
GRS(4)=CHR$(0) 

Das Programm belegt fast den ganzen Speicher des 
Computers. Weitere umfangreiche Funktionen lassen sich 
also nicht integrieren. 

Wir hoffen, daß Sie mit Grafik-Draw jetzt nicht mehr stän¬ 
dig viele verschiedene Malprogramme zur Hand haben 
müssen, um in verschiedenen Grafikstufen zeichnen zu 
können. Viel Spaß mit dem Programm! 

(Klaus Krassowski/hf) 


Steckbrief 

Programm: 

Grafik-Draw 

Sprache: 

Turbo-Basic 

Eingabehilfe: 

Prüfsummer und AMPEL 

Datenträger: 

Diskette 


ic — <yu> 

11 rem < J6> 

12 REM Graphic Draw <AH> 

13 REM (c) 1987 Klaus Krassowski <B£> 

15 REM <JY> 

49 — <ZR> 

500 GOSUB 10000:GQSUB 8000 <DK> 

600 BLOA3 "D: UPADSTK.BIN“ <HO> 

610 Z=USR (»9800, ADR (PM*) ,NR) <JK> 

620 POKE »0601,TEIL <YG> 

700 BLOAD "D:UKIPDRK.BIN": DKAD=*9500 <BT> 

800 GOTO 7100 <MS> 

999 — <LD> 

1S00 PROC BUT:REPEAT :IF JTFsA=STICK(XI) 

-14:ELSE :A=STRIG(X0> :ENDIF sUNTIL A=X1: 

PAUSE 4 s ENDPRDC <«S> 

1699 — <YB> 

1700 PROC CRSGR8 <PG> 

1720 IF MODE=8 THEN POKE 87,8 <XD> 

1735 TRAP 1800 <ÖF> 

1740 LOCATE X-i,Y,CR1:LOCATE X,Y-1,CR2:L 
OCATE X,Y+l,CR3tLOCATE X+1,Y,CR4 <OV> 

1760 COLOR 1—CR1:PLOT X-l,Y:COLOR 1-CR2: 

PLOT X,Y-1:COLOR 1-CR3:PL0T X,Y+1:COLOR 

1—CR4:PLOT X+l,YsPAUSE 3 <Y7> 


1780 COLOR CR1:PLOT X-1,Y:COLOR CR2sPL0T 
X,Y-lsCOLOR CR3:PLOT X,Y+1:COLOR CR4:PL 


OT X+l,Y <PJ> 

1800 COLOR COL:PAUSE 1 <KG> 

1820 IF M0DE=8 THEN POKE 87,!5!ENDIF <JH> 

1899 ENDPRGC <RD> 

1999 REM FUNKTIONEN <HK> 

2000 IF A=33 THEN 7000 <ÖF> 

2040 IF A=56 THEN GOSUB 12000 <HD> 

2060 FKTFG=X0tIF A=28 OR A=42 QR A=45 OR 

A=63 THEN 2090 <UT> 

2080 POKE N764,N255 <DH> 

2090 GOTO 2702 <SJ> 

2500 REM »»» HAUPT <JH> 

2600 FF=X0:CPF=X0:COL=ACOL:COLOR COLiPOK 
E N764,N255:GOSUB 12000 <UO> 

2620 IF GRS=10 THEN POKE 623,161 <AS> 

2630 POKE S060F,X1 <CI> 

2700 # HAUPT <JX> 

2701 FKTFG=X1:A=PEEK(764):IF A<>N255 THE 

N 2000 <IY> 

2702 IF STICK(XI)=7 THEN 7000 <£Z> 

2703 A=PEEK(53279):IF A=X3 THEN JTF=JTF= 

%0:POKE »0615,JTF:OPOKE *CB,X:PQKE *CD,Y 

: GOSUB 9S00:FKTFG=7.0 <HZ> 

2704 IF A=5 THEN JTMP=JTMP=X0:POKE »0600 

,JTMP:GOSUB 9800:FKTFG=X0 <LP> 

2705 IF JTMP THEN POKE *0600,JTMP <TG> 

2710 IF JTF:Pl=(DPEEK(*0606) DIV TEIL-14 
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) DIV <APIX/X2>:Y=(213-(DPEEK(#0608) DIV 


TEIL») DIV ASLI <6N> 

2715 STR=STICK(X1>-14:X=PlsIF PI>212 THE 
N X=XA:Y=YA <HC> 

2720 X=X*(X>%0) :Y=Y*<Y>X0> <SH> 

2721 IF X>XMAX THEN X=XMAX <KU> 

2722 IF Y>YMAX THEN Y=YMAX <HM> 

2725 DPOKE *CB,X:POKE *CD,Y <«S> 

2730 ELSE :X=DPEEK(#CB >: Y=PEEK(#CD):STR= 
STRIS<X0>:ENDIF <HG> 


2750 IF M0DE=9 THEN I=8/APIXrX=X DIV 1*1 <HC> 
2770 IF GRB=8 AND STR=1 THEN EXEC CRSGR8 <ZO> 
2800 IF FKTFS AND MODEOX1 AND STR AND X 
=XA AND Y=YA:GO# HAUPT:ENDIF :XA=X:YA=Y <JZ> 
2950 ON MODE 60# DRAU,LINE,LINEX,KREIS,K 


REIS, RECHT, RECHT , FILL, COPY, TEXTG, 20011 <HH> 

2995 REM ** ZEICHNEN <JK> 

3000 # DRAWsIF STR THEN FF=X0:GO# HAUPT <77> 

3020 IF FF:DRAWTD X,Y <BI> 

3040 ELSE :PLOT X,Y:FF=XI <CD> 

3090 ENDIF :GO# HAUPT <FQ> 

3190 REM ^ PUNKTE <87> 

3200 # PUNKT:IF STR=X0 THEN PLOT X,Y <HK> 

3290 GO# HAUPT <FC> 

3495 REM „ LINIEN <PH> 

3500 # LINE:IF FF AND STR THEN MOVE SC2, 

SCI,SCL:PLOT X1,Y1:DRAWT0 X,Y:GO# HAUPT <DU> 

3600 IF FF=X0 AND STR=X0 THEN MOVE SC1,S 
C2,SCL:X1=X:Y1=Y:FF=X1:EXEC BUT:EO# HAUP 
T <IF> 

3650 IF STR=X0 THEN FF=FF=X0:PLOT XI,Yl: 
DRAWTO X,Y:EXEC BUT <MZ> 

3690 60# HAUPT <FK> 

3699 REM _ LINIEN VERBUNDEN <QK> 

3700 # LINEX:IF PEEK <N764)=42 THEN FF=X0 

:POKE N764,N255:M0VE SC2,SC1,5CL <AH> 

3710 IF FF AND STR THEN MOVE SC2,SC1,SCL 
:PLOT XI,Yls DRAUTO X,Y:GO# HAUPT <HH> 

3750 IF FF=X0 AND STR=X0 THEN MOVE SC1,S 
C2,SCL:PLOT X,Y:X1=X:Y1=Y:FF=X1:EXEC BUT 
:SO# HAUPT <RJ> 

3S00 IF STR=X0 THEN PLOT XI, Yl: DRAWTO X, 

Y:X1=X: Y1=Y:MOVE SCI,SC2,SCL:EXEC BUT <CX> 
3990 GO# HAUPT <FÖ> 

3995 REM ~~ KREIS <#£> 

4000 # KREIS:IF MODE—5:RDI=ABS(X—X1):RD2 
—ABS(Y—Yl) <FA> 

4020 ELSE :RD1=SQR<(X-Xl) A 2+((Y-Yi)/(API 
X/ASLI ) ) J YZ) : RD2=RD1* (APIX/ASLI> : ENDIF <Z<?> 

4100 IF FF AND STR THEN MOVE SC2,SC1,SCL 
:CIRCLE XI,Yl,RD1,RD2:GO# HAUPT <OQ> 

4200 IF FF=X0 AND STR=X0 THEN MOVE SC1,S 
C2,SCL:X1=X:Y1=Y:FF=X1:EXEC BUT:GO# HAUP 
T <HY> 

4300 IF 5TR=X0 THEN FF=FF=X0:CIRCLE X1,Y 
1,RD1,RD2:EXEC BUT <TH> 

4490 SO# HAUPT <FH> 

4495 REM ** RECHTECK <PQ> 

4499 # RECHT <ßl> 

4500 IF FF AND STR THEN MOVE SC2,SC1,SCL 
:PLQT XI,Yl:DRAWTO X1,Y:DRAWT0 X,Y:DRAUT 

O X,Y1:DRAWTO Xl.YlsGO# HAUPT <HI> 

4600 IF FF-X0 AND STR=X0 THEN MOVE SC1,S 
C2,SCL:X1=X:Y1=Y:FF=X1sEXEC BUT:GO# HAUP 
T <IG> 

4700 IF STR=X0:FF=FF=X0:PLOT X1,Y1:DRAWT 
O XI,Y:DRAWTO X1,Y1:DRAWT0 X,Y1:DRAWT0 X 
1,Yl <DS> 

4720 IF M0DE=7 THEN N=l-(2*(Yl>Y>):FOR I 
=Y1 TO Y STEP N:PLOT XI,I:DRAWTO X,I:NEX 
T I <HA> 

4750 EXEC BUT:ENDIF <BF> 

4900 GQ# HAUPT <£Ö> 

4995 REM AUSFUELLEN <XH> 

5000 # FILL:IF PEEK(N764)=28 THEN MOVE S 
C2,SCI,SCL;POKE N764,N255 <XN> 

5080 IF STR=X0:IF GRS=S THEN X=X DIV X2 <>IS> 
5100 PAINT X,Y:ENDIF <S7> 

5200 GO# HAUPT <£D> 

5500 REM KOPIEREN <AX> 


5520 # COPY <CH> 

5550 IF CPF=X0 <TK> 

5600 IF FF=XB AND STR=X0 THEN MOVE SC1,S 
C2,SCL:X2=X:Y2=Y:FF=X1:G0# HAUPT <1£> 

5619 IF FF AND STR:MOVE SC2,SC1,SCL <ß«> 

5620 PLOT X2,Y2:DRAWTO X2,Y:DRAWT0 X,Y:D 

RAWTO X,Y2:DRAWTO X2,Y2:G0# HAUPT:ENDIF <EX> 

5700 IF 5TR=X0:FF=X0:CPF=X1:X4=X:Y4=Y:X3 
=X2:Y3=Y2:XD=ABS CX4-X3):YD=ABS(Y4-Y3):EX 

EC BUT <XA> 

5710 IF XD<X1 OR YD<XI THEN CPF=X0:FF=X1 
:ENDIF <CD> 

5730 1=8/APIX: Z1 =SC 1:XDGER= INT(-XD/I) *-/. 

1sYDG=YD:MOVE SC2,SC1,SCL <SF> 

5750 ELSE <U8> 

5760 IF X>XMAX-XD THEN X=XMAX-XD <£0> 

5770 IF Y>YMAX-YD THEN Y=YMAX-YD <JG> 

5800 IF PEEK(N764)=63 <LR> 

5830 PLOT X3.Y3:DRAWTO X3,Y4:DRAWTO X4,Y 
4:DRAWTO X4,Y3:DRAWTO X3,Y3 <Vi> 

5880 PLOT X,Y:DRAWTO X+XD,Y:DRAWTO X+XD, 

Y+YD:DRAWTO X,Y+YD:DRAWTO X,Y <SG> 

5900 ELSE <TQ> 

5910 Z=USR(DKAD+320,Z1-SC1+SC2,Z1,XDBER, 
YDG,ABYT> <7K> 

5920 I=8/APIX:XDGER=INT(-XD/I)•#—XI <J«> 

5930 01=SC2+Y3*ABYT+X3 DIV I:Z1=SC1+Y*AB 
YT+X DIV I:YDG=YD <HF> 

5940 Z=fJSR ( DKAD+320, □ 1, Z1, XDGER , YDS , ABYT 
) <LB> 

5980 IF STR=X0 THEN Z=USRtDKAD+320,Z1,Z1 
-SC1+SC2,XDGER,YDG,ABYT):X3=X: Y3=Y: X4=X+ 

XD:Y4=Y+YD:ENDIF <AK> 

5982 IF PEEK(N764)=42 THEN CPF=X0:MOVE S 
C2,SCI,SCL:POKE N764,N255:ENDIF <80> 

5990 GO# HAUPT <FS> 

5999 REM „ TEXT <J|/> 

6000 # TEXTG:IF STR THEN FF=X1:M0VE SC2, 

SCI,SCL:TEXT X,Y,TXTS:IF PEEK(N764)=45:G 

OTO 6400:ENDIF :GO# HAUPT <IG> 

6300 IF STR=X0 THEN MOVE SCI,SC2,SCL:TEX 
T X,Y,TXT# <I0> 

6390 GD# HAUPT <FH> 

6400 POKE N764,N255:TXTS=.. <K7> 

6405 MOVE SC2,SC1,SCL <V0> 

6410 DD :SET I;IF I=1SS:EXIT :ELSE :TXT# 

(N, N>=CHR#(I);N=N+X1:MOVE SC2,SCI,SCL:TE 
XT X,Y,TXT#:LOOP :ENDIF <ZK> 

6480 POKE N764,N255 <D2> 

6490 GO# HAUPT <FJ> 

6499 REM —— ZOOM <RY> 

6500 # ZOOM:ZMFG=X1 <Ö0> 

6520 CPF=1:XD=4B/(APIX/ASLI>-XI:YD=23 <EG> 
6550 IF FF=X0 <HK> 

6560 IF X>XMAX-XD THEN X=XMAX-XD <EH> 

6570 IF Y>YMAX-YD THEN Y=YMAX-YD <JD> 

6580 IF STR <LL> 

6600 MDVE SC2,SC1,SCL <UY> 

6630 PLOT X,Y:DRAWTO X+XD,Y:DRAWTO X+XD, 

Y+YD:DRAWTO X,Y+YD:DRAWTO X,Y <R0> 

6680 ELSE :FF=X1:MOVE SC2,SC1,SCL <P«> 

6690 X1=X:Y1=Y:REM 0GZ=GZ:G2=1:GOSUB 800 
0:GZ=OGZ <KS> 

6700 2=USR(DKAD+400,X0,PUFAD,X,XD+X1,Y,Y 
D+XI,APIX> <«a> 

6770 ENDIF :GO# HAUPT <GB> 

6780 ENDIF <TX> 

6800 I=X DIV S:J=Y DIV 8:X=I*8:Y=J*8 <FU> 

6820 COLOR PEEK(PUFAD+Y2*(XD+X1)+X2):TEX 

T X2*8,Y2*8, M *": COLOR COL:TEXT X, Y, CCTL 
_S>“:X2=I:Y2=J <0F> 

6850 IF STR=X0 THEN TEXT X,Y,POKE PU 
FAD+J*(XD+Xl)+1,COL <GH> 

6900 IF PEEKCN764)=42:POKE N764,N255 <VH> 

6910 MOVE SC2,SC1,SCL <VH> 
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6920 Z=USR{DKAD+40B, 7-1,PUFAD, X1 ,XD+X1,Y1 
,YD+X1,APIX> <HX> 

6940 HOVE SCI,BC2* SCL:FF=X0:X=X1sY=Y1: DP 
OKE $CB,X:PQKE $CD,Y:GOSUB 8000:GQ* ZOOM <Ü0> 
6995 ENDIF sGO# HAUPT <HF> 

7000 REM MENU <HC> 

7050 IF FF="40 AND RODEOll AND MODE<>9 T 
HEN MOVE SC1,SC2,SCL <YQ> 

7100 PDKE $060D, X0: PQKE $060F ,7-0: POKE *0 
618/40 <NS> 

7200 GRAPHICS *40: PQKE 559,7.0: POKE 53249, 

X0:PQKE 53250,X0sPOKE 710,10!POKE 709,0: 

PQKE 712,80 <XG> 

7210 POKE N764,N255 <DB> 

7250 MPS=MODE:POKE $060C,191:PQKE $CD,MD 
DE*6: Y=M0DE*8+56 : GOSUB 9000 <FY> 


7300 POKE 752,7-1:? "CESC CTL <>CCTL QKC 
TL RJCCTL RJ -CCTL RJ -CCTL RJCCTL RJCCTL RJ 
CCTL RJ CCTL RJCCTL RJCCTL RJCCTL RJCCTL 
R J CCTL RJ CCTL RJCCTL R>CCTL R J CCTL RJCCT 
L RJ CCTL RJ CCTL RJCCTL R J CCTL RJCCTL RJ C 
CTL RJCCTL RJCCTL RJCCTL RJCCTL R>CCTL R 
JCCTL R> CCTL RJCCTL RJCCTL RJCCTL RJCCTL 
EJ" <BB> 

7350 ? “ CSHIFT z k^Draw 

POSITION 37,7-1:? "CSHIFT =>" <PÜ> 

7380 ? " CSHIFT =J **** fc> *1987**K1 aus*Kra 
ssowski-t”:POSITION 37,7-2:7 "CSHIFT *>" <BJ> 
7450 ? "CCTL A3- CCTL R> CCTL R3- CCTL R 3 CCTL 
RJ CCTL R J CCTL R>CCTL R>CCTL RJ CCTL R J CC 
TL RJ CCTL RJ CCTL RJCCTL RJCCTL RJCCTL RJ 
CCTL RJ CCTL RJCCTL WJCCTL RJCCTL RJCCTL 
RJ CCTL RJCCTL RJCCTL RJCCTL RJCCTL RJCCT 
L RJCCTL RJCCTL RJCCTL RJCCTL RJCCTL RJC 


CTL RJCCTL RJCCTL CJ" <YQ> 

7600 ? "CSHIFT =>*Zei ebnen*******CSHIFT 
=>" <ZH> 

7605 ? "CSHIFT =J*Li nie******««* CSHIFT 

7610 ? "CSHIFT =J*Linie*-FoIgend***C5HIFT 
=>" <KY> 

7615 ? "CSHIFT =>*Kreis***********CSHIFT 
=J" <QN> 

7620 ? "CSHIFT =J*E11ipse*********CSHIFT 
=J M <EN> 

7625 ? "CSHIFT -J*Rechteck********CSHIFT 
=>" <UV> 

7630 7 "CSHIFT =J*Rechteck*gef-***CSHIFT 
=J" <U0> 

7640 ? "CSHIFT ^J*Aus-fuel len******CSHIFT 
=J" <ÖZ> 

7650 ? "CSHIFT =>*Kopieren_******CSHIFT 

=J" <FV> 

7652 ? "CSHIFT “>*Text************CSHIFT 
=>" 

7654 ? " CSHIFT =J*Zoo«i************CSHIFT 
=J" <HB> 

7656 ? "CCTL AJ*Farben*********CCTL RJ CC 
TL SJ CCTL RJCCTL RJCCTL RJCCTL RJCCTL EJ 
CESC CTL -JCESC CTL +JCSHIFT “JCESC CTL 

<F0> 

7660 7 "CSHIFT =J*Graf i k*Stuf e****: C" ; GR 
S ; “ J " <£G> 

7670 ? "CSHIFT =>*Loeschen********CCTL A 
J CCTL RJCCTL RJCCTL RJCCTL RJCCTL XJCCTL 


RJCCTL RJCCTL RJCCTL RJCCTL RJCCTL RJCC 
TL RJCCTL RJCCTL RJCCTL RJCCTL EJCESC CT 
L =J CESC CTL +>CSHIFT =JCESC CTL <XP> 


7680 7 " CSHIFT =>*Disk************:GRN 
$ , <Ctf> 

7690 ? "CSHIFT =>*Drucken*********CCTL A 


J CCTL RJCCTL RJCCTL RJCCTL RJCCTL RJCCTL 
RJCCTL RJCCTL RJCCTL RJCCTL RJCCTL RJ CC 
TL RJCCTL RJCCTL RJCCTL RJCCTL DJCESC CT 
L -JCESC CTL *0 CSHIFT =>CESC CTL -J" <SK> 

7692 ? "CSHIFT =J*2eichengeraet***s"; <ffl> 

7695 IF JTF:? "Touch*Tablet":ELSE :? "Jo 
ystick":ENDIF <Kü> 

7698 ? "CCTL ZJCCTL RJCCTL RJCCTL RJCCTL 
RJCCTL RJCCTL RJCCTL RJCCTL RJCCTL RJCC 


TL RJCCTL RJCCTL RJCCTL RJCCTL RJCCTL RJ 
CCTL RJCCTL RJCCTL XJCCTL RJCCTL RJCCTL 
RJCCTL RJCCTL RJCCTL RJCCTL RJCCTL RJCCT 
L RJCCTL RJCCTL RJCCTL RJCCTL RJCCTL RJC 
CTL RJCCTL C>":? :POKE 752,70 <ST> 

7700 DO :IF JTF=%0;Y=PEEK($CD>;A-Y DIV 6 <HQ> 
7705 ELSE s Y “200-PADDLE ("43 > : Y=Y* (YJXB) : A 
=Y DIV 10: PAUSE 7-1: ENDIF <QK> 

7710 ST1-STRIG(-40>:ST2=STICKC71>-14 <XQ> 

7714 IF A AND MPS<>A;MP5=A <FB> 

7716 IF MPS>17s MPS=17:POKE $CD,MPS* 6 :ELS 
E <NH> 

7718 SOUND 7-0,MPS*8+20, 10,LAUTS:PAUSE XI <JH> 
7720 Y=MPS*8+56:GOSUB 9000 <W«> 

7725 ENDIF : SOUND 7-0,'40,"40,X0: ENDIF ; IF 
ST1=X0 DR ST2="40 THEN EX IT <GC> 

7730 LOOP <YX> 

7770 IF MPSC12 THEN MDDE=MPS <£ 8 J 

7800 IF MPS=I3 THEN GOSUB 14000 <QX> 

7810 IF GRS=5 AND CM0DE=9 OR M0DE=11 DR 
MPS=16> THEN GOSUB 9800:M0DE=1:GOTO 7100 <0V> 
7820 IF MPS=14 THEN ? " Bild*Loesc ben*CJ/ 

NT * 11 5 : GET I:IF IOASC("J" ) THEN 7300 <ttC> 

7830 IF MPS=10 THEN ? "Text*—>*:INPUT 
TXTS <YF> 

7850 IF MFS=I5 THEN GOSUB 17000 <VU> 

7870 IF MPS“17 THEN JTF^JTF—X0:POKE $061 
5,JTF:GOTO 7300 <ELO 

7880 IF M0DE=9 THEN POKE $0618/41 <RE> 

7900 IF MPS=16 THEN GOSUB 21000 <QK> 

7940 REM <UI> 

7950 POKE 53249/40: POKE 53250/40 <P7> 

7960 POKE 559,7-0: GRAPHICS GRS+16: BC1-DPE 
EK(BB) <EA> 

7962 GOSUB 8000:GOSUB 15000 <JA> 

7965 POKE $060C,YMAX:MQVE SC2,SC1,SCL <FA> 

7970 IF GRS=B THEN POKE 712,X2 <ÄJ> 

7975 IF MPS= 1 4 THEN CLS # 6 :MQVE SC1,SC2, 

SCL <JC> 

7980 IF MPS=16 AND DRFE THEN GOSUB 20000 
:GOTO 7000 <an> 

7985 IF MPS” 12 THEN GOSUB 12500 <l^ö> 

7990 IF MPS=15 THEN ON LSF GOSUB 18000,1 
8500;GOSUB 15000:MOVE SCI,SC2,SCL:GOTO 7 
000 <0J> 

7995 GOTO 2600 <Stf> 

8000 REM PM STEUERUNG <EH> 

1 8050 NR=X0:RESTORE B100+GZ*10 <ER> 

3060 DO sREAD A:IF A=-l THEN EXIT <AL> 

3080 NR—NR+X1:PM$(NR,NR)=CHR$(A> <SA> 

8090 LOOP :POKE $060£,NR <YT> 

8110 DATA*0,0,4S,4S,72,72,72,72,48,48,0, 

“1 <FI> 

8120 DATA^B,0,32,32,80,80,32,32,0,-1 <WB> 

Bl30 DATA*0,0,48,48,204,48,48,0,-1 <0G> 

8140 DATA^0,0,24,24,102,24,24,0,-1 <RS> 

8150 DATA*.0,0,4S,48,204,48,48,0,-1 <0W> 

8160 DATA*0,0,32,32,80,32,32,0,0,0,-1 <ZÜ> 

8170 DATA*0,0,0,0,0,-1 <DI> 

3200 POKE 559,62:POKE 705,15 <0M> 

8210 I=PEEK(106)-40:PMAD=I*256+1280 < XA> 

8220 POKE 54279,1: PQKE 53277,7-3 <0P> 

8260 POKE 53257/40:REM PLAYER 1 !! <LB> 

8262 POKE 53258/41 <£C> 

8300 POKE PMAD, X0: MÖVE PMAD , PMAD+7-1 ,N255 <CR> 
8310 POKE PMAD+N255,7-0: MOVE PMAD+N255,PM 
AD+256,N255 <QG> 

8320 POKE PMAD+N255+20,N255:MOVE PMAD+N2 
55+20,PMAD+N255+21,10 <£7> 

8350 POKE 53250,48 <NÜ> 

8490 RETURN <QJ> 

8990 REM PM MENU <Ftf> 

9000 POKE P _ MAD/40sMOVE PMAD,PMAD+Zl ,512 <JK> 
9050 POKE 559,62: POKE 53277,7.3: POKE 623, 

7-1 <PH> 

9055 IF MPS<12:POKE 705,186:PQKE 706,186 
:ELSE :POKE 705,42:POKE 706,42:ENDIF CtftfJ 

9070 POKE 53257,7-3: POKE 53258,7-3: POKE 53 
249,62:POKE 53250,90 <HR> 

9100 MOVE ADRCPM2$>,PMAD+Y ,8 <HN> 
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9120 MQVE ADR(PM2$>,PMAD+256+Y,S <TZ> 

9190 RETURN <Q£> 

9499 REM * PM AUS <VU> 

9500 POKE 710,16:POKE 709,12:FOKE 705,16 

sPOKE 706,16:RETURN <HP> 

9799 REM * TON <JÖ> 

9800 SOUND X0,90,10,LAUTS:PAUSE 8:SOUND 

%0, %0 , 7-0,70 : RETURN < LR > 

10000 REM *** IN1T <GE> 

10020 DIM PM$<30),PM2$C13),GRSII$(7700), 

RUFS<1000),CPF*t320) <QJ> 

10030 DIM A$(15),GRN$(15),TXT$C40> <7£?> 

10040 DIM GCOL(7,8) <VH> 

10050 S02=ADR(GRSII$> = PMSTR=ADR(FM$) <YL> 

10080 DIM GR$(6),KLR$<40) <VH> 

10150 PM2$= M CESC CTL » " :PM2$ (12> = " CESC 
CTL » ,f : PM2$ (7-2) =PM2$ <ÖH> 

10190 GRSI 1$=" CCTL , > M : GRSI IS (1300) = ■* CCT 
L , y " : GRS 11 $ (7.2 > -GRS I I$s PUF$=GRS 11$ <FF> 

10200 KLR$= ” * " : KLR$ (40 > = " * M : KLR$ (7.2 > =KLR 
$:GRN$=KLR$ <tlQ> 

10220 PUFAD=ADR(PUF$) <HR> 

10230 SR$=CHR$ (27) : GR$ (72) = " K '* <VK> 

10330 N255=255:N764=764 <SV> 

10350 CGL=X1: ACOL=COL: DFMT=X 1: DRFG=7.0: JT 
F=X0: JTMP=X0: INVFG=X0sLAUT5=4:TEIL=X2 <XH> 
10400 fiODE=71 <QC> 

10410 GZ=6 = GQSfJB 14100: GDSUB 14500 <RV> 

10490 RETURN <UT> 

12000 REM ** FÄRB WAHL <AC> 

12020 GOSUB 9800:A=CM:IF GRS=9 OR GRS=li 
THEN A=16 <ZD> 

12030 IF GRS=8 AND MODE—8 THEN POKE 87,1 
5:A=4:X=X DIV 72 <W> 

12080 ACOL=CGL <IJ> 

12100 COL=COL+7.1- 1C0L+X1) * (CGL>=A-X1> <CV> 
12120 COLOR COL <SC> 

12200 IF GRS>8 AND GRSC12 OR (GRS=8 AND 
MQDE=E) : POKE 53250,7.0: MOVE SCI , ADR (CPF$> 

,320: TEXT X0,X0,"**" <XE> 

12220 PAUSE 30:MQVE ADR(CPF$),SC1,320:EL 
SE ;POKE 706,GCOL<CMEN*X2+X1,C0L) <XV> 

12300 ENDIF :POKE N764,N2S5 <BG> 

12390 RETURN <UU> 

12490 REM ** FÄRB MENU <KE> 

12500 A=CM: AS“" -^**** “ : IF GRS=9 OR GRS 

=11 THEN A=16 <YG> 

12600 FOR 1=70 TO A-Xl <AQ> 

12640 COLOR I!TEXT X0,1*12 , A$ (7.1,8/APIX) <YD> 
12660 NEXT I:COL=70:TEXT 64/APIX,70,"<ES 
C CTL +1“ <FX> 

12700 DO :A=P£EK(53279):J=CMEN*X2 <0P> 

12720 IF A=6 THEN TEXT 64/APIX,C0L*12, 11 * 

" : COL= (CDL+Xl > * (COL<CM-Xl) : TEXT 64/APIX , 
C0L*I2, 11 CESC CTL +>":GaSUB 9300 <LH> 

12740 I=GC0LCJ+71,C0L)!H=I MOD 16:F=I-H <HB> 
12760 IF A=X3 THEN F=CF+16)*fF<240>:GCOL 
(J+Xl, COL)=F+Hs POKE GCQL(J,CQL) ,F+H:PAUS 
E 10 <JC> 

12800 IF A-5 THEN H=<H+X2>*(H<14):GCOL<J 
+X1,C0D=F+H:P0KE GCQL(J,COL) ,F+H:PAUSE 
10 <40 

12880 IF PEEKCN764)=2S THEN POKE N764,N2 
SSsEXIT <£ö> 

12900 LOOP <WT> 

12990 MOVE SC2,SCI,SCL:RETURN <8t/> 

14000 REM ** GRAPHIC WAHL <U1> 

14020 ACOL=%0: GOSUB 9500:? ■■ CESC CTL <H 
ESC CTL =}" <Rlf> 

14050 7 "Welche^Grafi k—Stufe?" :7 :? "1*= 

* C *5 3 11 : ? “2*=*E*7:"s? "3*=*E*93"s? "4*=* 

E 10 3 " : ? "S^CH] 1 ':? w 6*=*Cl5r* <JL> 

14060 ? <ZH> 

14070 REPEAT : GET I:1=1-48sUNTIL I>70 AN 
D I<8 <IL> 

14080 SZ=I <CR> 

14100 RESTDRE 14390+GZ*10:READ GRS,SCL,X 
MAX,YMAX,ABYT,APIX,ASLI,CMEN,CM <1S > 

14210 DFOKE *060A,XMAXsPOKE $060C,YMAX <£G> 

14220 POKE $0611,APIX:POKE $0612,ASLI <AV> 


14290 RETURN <UV> 

14392 REM GRS,SCL,XMAX,YMAX,ABYT,APIX,AS 
LI <NV> 

14400 DATA^S,960,79,47,20,4,4,1,4 <Ztf> 

14410 DATA*7,3840,159,95,40,2, 2 ,1,4 <HT> 

14420 DATA*9,7680,79,191,40,4,1,3,1 <JZ> 

14430 DATA*10,7680,79,191,40,4,1,2,9 <FD> 

14440 DATA*11,7680,79,191,40,4,1,3,1 C«4> 

14450 DATA*15,7680,159,191,40,2,1,1,4 <HL> 

14460 DATA*8,7680,319,191,40,1,1,0,2 <G0> 

14490 REM ** COLORS <CP> 

14500 RESTÖRE 14600 <LG> 

14510 FOR N=70 TO 73:READ J <PG> 

14520 FOR 1=70 TO <H0> 

14530 READ A,B: GCOL (N*72, I > =700+A <Ff#> 

1 4540 GCOL(N*X2+71,I)=B <ZQ> 

14550 NEXT Ie NEXT N <U8> 

14590 RETURN <KE> 

14600 DATA*2,10,0,9,15 <UB> 

14610 DATA*4,12,0,8,186,9,150,10,40 <DH> 

14620 DATA*9,4,8,5,14,6,184,7,150,8,32,9 
,176,10,90,11,80,12,60 <EÖ> 

14630 DATA*!,12,8 <UB> 

15000 REM ** FARBEN SETZEN <HR> 

15010 FOR 1=70 TD CM-71 t J=CMEN*72 <CH> 

15050 POKE GCQL(J,I),GCOLCJ+71,I) <XJ> 

15100 NEXT I: RETURN <4Af> 

17000 REM ** FILENAME <N0> 

17005 TRAP 7200:GOSUB 9500:7 "CESC CTL < 

XESC CTL = 3- Disk* Menu 11 <W^> 

17010 DO :LSF=X0:7 <PY> 

17020 7 " CD]-.Directory“ <MA> 

17030 ? "CLD^Ladten -1 <IK> 

17040 7 " CSD*Speiehern" <ZQ> 

17050 7 11 L CESC ESO CESC ESCJ I*ENDE" : 7 <FO 

17060 GET I <TF> 

17100 IF 1=76 THEN LSF=71:EXIT <R$> 

17110 XF 1=83 THEN LSF=72:EXIT <RU> 

17120 IF 1=63 THEN ? :? :DIR <XX> 

17125 IF 1=27 THEN EXIT <GB> 

17130 LOOP sIF 1=27 THEN 17300 <EH> 

17140 PUT 1+128:? :? :IF LSF=X2 THEN ? , 

" CESC CTL *> ” ; GRNS; 11 CESC CTL -J ,T <NR> 

17150 XNPUT "Filename*CESC ESOCESC CTL 
*>";A$ <0Ä> 

17160 A= INSTR (A$ IF A=X2 OR A=7.3 TH 

EN GRN$=A$:RETURN <DI> 

17180 GRN$CX1)="D:":GRN$(%3)=A$ 

17300 RETURN <TU> 

18000 REM *** LADEN 

18100 TRAP 18490:OPEN #4,4,0,GRN$ <FX> 

18150 ACOL=X0:CLS #6:BGET #4,SCI,SCL <DG> 

1S200 GET #4,1:IF 1=75 <HR> 

18250 GET #4,GZ t GOSUB 14100 <QZ> 

18300 GET #4,CM <ZD> 

18320 FOR 1=7.0 TO CM-Xl: J=CMEN*X2 <D^> 

18340 GET #4,A:GET #4,B <KP> 

18350 GCOL(J,I>=A+700:GCOL(J+X1^I)=B <I7> 

18400 NEXT J «?£> 

18490 ENDIF :CLOSE #4:RETURN <RZ> 

18500 REM SPEICHERN <GP> 

18600 TRAP 18900:OPEN #4,B,0,GRN$ <ÖZ> 

18700 BPUT #4,SCI,SCL <ZG> 

1SS00 PUT #4,75:PUT #4,GZ:PUT #4,CM <CY> 

18820 FOR I=X0 TO CM-XlsJ~CMEN*X2 <DP> 

I8830 A=GCOL(J,I)-700:B=GCOL(J+X1,I) <ET> 

18850 PUT #4,A:PUT #4,B <IR> 

18860 NEXT I <HV> 

18900 CLOSE #4:RETURN <FK> 

20000 REM *** DRUCK ROUTINE <07> 

20100 TRAP 20600:OPEN #3,8,0,"P:“ <FH> 

20120 IF INVFG THEN Z=USR(DKAD+280,YMAX+ 

Xl> <GY> 

20150 7 #3; "CESC ESOACCTL H>" <BH> 


Listing 1. »Grafik-Draw« (Fortsetzung) 
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20200 FÜR N=SC1 TD SC1+SCL-320 STEP 320 <FB> 
20250 IF PEEK {N764 > — 126 THEN POKE N764,N 
255;EXIT <KP> 

20300 Z=USR(DKAD,DFMT,N t SC2) <CÖ> 

20350 IF DFMT=X1 THEN ? #3yKLR$ (XI ,DPS> ; 
GR$;GRSI3$(X1,320) <Rü> 

20400 IF DFMT=X2 THEN ? #3; GR*; GRS 11$ CTS 1 
,640):? #3; ORSj GRSI1$(641,1280) <CH> 

20450 NEXT N <IY> 

20500 IF INVFG THEN Z=USRCDKAD+2S0,YMAX+ 

XI) <#C> 

20550 MDVE SCI,SC2,SCL <UX> 

20600 CLQSE #3:RETURN <DY> 

21000 REM DRUCK FORMAT <AÜ> 

21050 GDSUB 9500 CLV> 

21100 REPEAT ; ? " CESC CTL OCESC CTL =>< 

ESC CTL =ODRUCK ^Format 11 = ? " CESC CTL =>C1 
:^HaIbe A DlN*Ä4^Breite u £? "C2D*Ganze^DIN* 
A4*Brei te H :? <GH> 

21120 SET AsPUT A+12S:A=A-4S <SB> 

21150 UNTIL A>X0 AND A<X3 <0F> 

21200 DFMT=A CIO 

21250 IF DFMT=X1 THEN GRS(3,3)=CHR$(64): 

GRS C 4,4 ) =CHRS < 1) < 11 ö > 

21450 IF DFMT-X2 THEN GRSC3 T 3>=CHRSC12S) 


:GRS <4,4)=CHRS C2):GOTO 23000 <UC> 

21750 REPEAT i7 "CESC CTL «{ESC CTL => < 

ESC CTL => DRUCK^Po sition» = ? "CESC CTL => 
CU*Links u s? "C23*Mi tte 11 s ? "£33*Rechts ,i : 

? "C4D^Indi viduel " <LV> 

21800 ? :GET AiPUT A+12S:A=A-4Q;UNTIL A> 

X0 AND A<5 <GH> 

21850 IF A< >4; DPS— (A—XI ) *19+X1 <K£> 

221SB ELSE :? :REPEAT s? "CESC CTL -JCES 
C SHIFT DEL>Position*Cl~40:^: 11 ; s INPUT DP 
S;UNTIL DPS>X0 AND DPS<41 <TP> 

23000 ENDIF <RZ> 

23020 ? :? "CESC CTL => Invers *Drucken»^C 
J/N3*"5 sSET IsIF I=ASC C 7, J") : INVFG=X1 = ELS 
E :INVFG=X0iENDIF <ZP> 

23500 ? =? “CESC CTL =>Starte*Drucken**C 
J/N3*"fsGET I <DL> 

23510 IF I =ASC ( 11 J " > s DRFG=X 1: ELSE :DRFG=X 
0r INVFG-X0: END 1F <S4E> 

24000 RETURN <TG> 
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3D-Grafik in Turbo Basic 



Dreidimensionale Computergrafiken sind immer 
häufiger Bestandteil von Film und Fernsehen. Mit 
dem Atari lassen sich bereits ansehnliche Grafi¬ 
ten berechnen und darstellen. 

icht nur in der Industrie, in der Entwicklung oder im 
CAD-Bereich, sondern auch in Film und Fernse¬ 
hen, besonders in der Werbung, bedient man sich 
immer mehr der »Bilder aus dem Computer«. Das ist kein 
Wunder, denn die Kosten für computeranimierte Filme sind 
drastisch gesunken. Computer, die solche Leistungen brin¬ 
gen, sind meistens teure Grafik-Workstations oder Super¬ 
computer wie die »Cray« und besitzen neben schnellen 
Programmen spezielle Hardware. Dadurch wird die Grafik 
wesentlich schneller und viele Grafik-Routinen überflüs¬ 
sig. Eins steht auf jeden Fall fest: Die Berechnung von drei¬ 
dimensionalen Grafiken mit verdeckten Kanten, Schattie¬ 
rung und Lichtreflexen braucht sehr viel Speicher und eine 
Menge Zeit. 

Mit diesem Beitrag wollen wir nicht die mathematischen 
Grundlagen der dreidimensionalen Grafik erklären. Dafür 
behandeln wir das sogenannte »Clipping« oder »Window- 
ing«, verdeckte Kanten und die Berechnung von Schlag¬ 
schatten einfacher Objekte. Da bestimmte Unterpro¬ 
gramme immer wieder Verwendung finden, werden die ein¬ 
zelnen Prozeduren gesondert in einem Satz erläutert. 

Steigen wirmitdem »Clipping« ein. Dahinter verbirgt sich 
nichts weiter als das Kappen von Linien, die über den Bild¬ 
schirmrand hinausgehen. Ganz so einfach ist die Sache lei¬ 
der nicht. Ein wichtiger Faktor ist nämlich der Winkel, unter 
dem die Linie den Bildrand schneidet. Die Clipping- 
Routine berechnet nun im Prinzip die Länge und den Win¬ 
kel des nicht sichtbaren Teils einer Linie gegenüber dem 
Bildrand und liefert als Ergebnis die erste wieder sichtbare 
Koordinate dieser Linie. 

Der hier verwendete Ciipping-Algorithmus wurde in 
Amerika von »Evans und Sutherland«, Pionieren der Com¬ 
putergrafik, entwickelt. Dieses Unternehmen liefert Com¬ 
putersimulationen hauptsächlich für militärische Zwecke. 

Doch nun zum Programm: Innerhalb der Routine wird 
mit Hilfe der Prozedur »CODE« zunächst ein 4-Bit-Code 
berechnet, wobei die Bits folgende Bedeutung haben: 

Bit 1: Punkt ist links vom Biidrand 
Bit 2: Punkt ist rechts vom Bildrand 
Bit 3: Punkt ist unterhalb vom Bildrand 
Bit 4: Punkt ist oberhalb vom Bildrand 

Die Variablen, die diese Bitkombinationen enthalten, 
sind C, CI und C2. CZdient hier nuralsTauschvariable. Die 
Bits sind entsprechend den Bitpositionen innerhalb eines 
Byte in den Variablen enthalten. Die Prozedur »CLIP« 
berechnet dann Länge und Winkel der verdeckten Linie(n). 
Dieser Prozeß wird solange durchlaufen, bis die Prozedur 
erkennt, daß die ganze Linie unsichtbar ist {Bedingung: 
V!S=0). Wenn Teile der Linie oder die ganze Linie sichtbar 
sind, so lautet die Bedingung VIS=1. Haben alle vier Bits 
den Wert 0, befindet sich der zu setzende Punkt oder die 
Linie innerhalb des Bildes und kann gesetzt werden. Die 
Variablen, die die Bildschirmgrenzen festsetzen, heißen: 
CLIPYB für den unteren Rand 

CLIPYT für den oberen Rand 

CLIPXL für den linken Rand 

CLIPXR für den rechten Rand 

Durch Verändern dieser Variablen (im Listing Zeile 40 
und 50) wird jeder beliebige Bildschirmbereich bestimmt. 


Das Objekt oder sichtbare Teile davon werden nur inner¬ 
halb dieses Fensters dargestellt. Obwohl wir hier mit dreidi¬ 
mensionalen Objekten arbeiten, ist die Clipping-Routine im 
Prinzip für zweidimensionale Objekte gedacht. Da auf dem 
Bildschirm aber zweidimensional abgebildet wird, kann die 
Routine verwendet werden. Es existiert zwar auch ein 
Cohen-Sutherland-Algorithmus, der dreidimensional ar¬ 
beitet. Er ist aber nur von Interesse, wenn man sich in das 
Objekt »hinein«begeben will. Damit dieses dennoch mit der 
hier verwendeten Routine bedingt möglich ist, wird in der 
Prozedur »CALCPOINT« die Z-Koordinate eines Punktes 
automatisch auf 1 gesetzt, wenn diese vorher kleiner war. 
Damit wird verhindert, daß eventuell »vor« dem Bildschirm 
liegende Objekte durch falsche Berechnung ein Linien¬ 
chaos auf dem Schirm erzeugen. 



Bild 1. Ein bekanntes Zeichen in 3D 

Ein nächstes Problem bereitet die Berechnung der ver¬ 
deckten Kanten und Flächen (Bild 1). Über das »Hidden 
Line« oder »Hidden Surface«-Problem gibt es jede Menge 
Literatur, sogar Dissertationen und andere wissenschaftli¬ 
che Arbeiten. Entsprechend groß ist auch die Anzahl der 
Methoden und Algorithmen zur Bewältigung dieses Pro¬ 
blems. Die meisten Verfahren sind Scan-Algorithmen, bei 
denen das Bild Zeile für Zeile abgetastet, untersucht und 
dann entsprechend bearbeitet wird. Unsere Lösung ist ein 
Prioritäts-Algorithmus, der einen vertretbaren Kompromiß 
zwischen Aufwand und Genauigkeit darstellt. Es ist ein ver¬ 
einfachter »Newell-Sancha«-Algorithmus. Zur weiteren 
Erklärung betrachten wir zuerst die Koordinaten- 
Verhältnisse. 

Da wir hier dreidimensionale Objekte darstellen, braucht 
unser Koordinatensystem die Achsen X, Y und Z, wobei die 
Z-Koordinate senkrecht auf dem Bildschirm steht. Bei grö¬ 
ßerwerdenden Z-Koordinaten bewegt man sich in den Bild¬ 
schirm hinein. 

Um verdeckte Kanten darzusteiien, ist es von großer 
Bedeutung, wie das Objekt im Speicher des Computers 
abgelegt wird. Da wir von jetzt an nicht mehr nur Eck¬ 
punkte, sondern ganze Kanten des Objektes betrachten, 
müssen diese dem Programm als solche erkennbar sein. 
Zusätzlich zu diesen Informationen braucht der Computer 
noch Angaben über die Anzahl der Kanten jedes einzelnen 
Polygons und über die Verbindungslinien. 

Ein Würfel besteht jetzt nicht mehr aus 8 Eckpunkten, 
sondern aus 6 Polygonen. Diese exakte Beschreibung des 
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Objektes ist eine grundlegende Bedingung, um eine 
Ansicht mit verdeckten Kanten zu berechnen. 

Der Algorith m us f unktion iert folgendermaßen: N achdem 
die Rotationen und alle anderen Transformationen beendet 
sind, sortiert die Prozedur »SORTPOLY« alle Polygone 
nach der Z-Koordinate. Dadurch bekommen die Polygone 
eine Priorität zugewiesen. Das Polygon, das am weitesten 
vom Betrachter entfernt ist, erhält die niedrigste Priorität. 
Die Polygone werden dann in der Reihenfolge ihrer Priorität 
auf den Bildschirm gebracht. Zuerst wird das Polygon der 
niedrigsten, zuletzt das Polygon der höchsten Priorität 
gezeichnet. Dabei ist zu beachten, da8 nicht nur die äußere 
Umrandung des Polygons (Linien, die das Polygon bilden) 
gezeichnet wird, sondern das ganze Polygon in Form einer 
Fläche. Im Programm erledigt das die Prozedur »DDA«. 
Und schon ist die 3D-Darstellung mit verdeckten Kanten 
fertig. 

Die Sache hat aber leider einen Schönheitsfehler. Der 
Algorithmus funktioniert nämlich nicht immer. Es wird 
besonders dann kritisch, wenn sich Polygone in der Z- 
Ebene überlappen. Betrachten wir dazu einmal Bild 2. 
Wenn man nach Z-Koordinaten sortiert, erhält Polygon 2 
eine höhere Priorität als Polygon 1, weil dessen Z-Wert grö¬ 
ßer ist als der von Polygon 2. Im Ergebnis würde zuerst 
Polygon 1, dann Polygon 2 gezeichnet werden. Von der Dar¬ 
stellung her ist das falsch. Dieser Fehler ließe sich durch 
Erweitern der Sortierkriterien zwar umgehen, was aber 
wieder auf Kosten der Rechenzeit gehen würde. Möchte 
man dennoch die Berechnungen korrekt durchführen, so 
ergeben sich mit Bezug auf Bild 2 folgende Sachverhalte: 

Polygon 1 verdeckt Polygon 2 (im folgenden PI und P2 
genannt) nicht in dem Fall, 

- daß ein einleitender Test der Z-Werte ergibt, daß sich PI 
und P2 in der Z-Ebene nicht überlappen. 

- daß ein Test der größten und kleinsten X- und Y-Werte der 
einzelnen Polygone ergibt, daß sich diese in XY-Richtung 
nicht überlappen. 

- daß alle Kanten von PI weiter vom Betrachter entfernt sind 
als die Ebene von P2. Hierzu werden die X- und Y-Werte 
von PI in die Ebenengleichung (AX+ BY+CZ+D=0) von P2 
eingesetzt und die »Tiefe« von P2 berechnet. 

- daß alle Kanten von P2 näher am Betrachter sind als die 
Ebene, die PI aufspannt. 

- daß ein kompletter Überlappungstest zeigt, daß sich die 
Polygone in X/Y-Richtung nicht überlappen. 

Werden alle diese Tests durchlaufen, muß man eine 
Menge Geduld haben. Versuche mit vielen Objekten haben 
ergeben, daß man trotz ausschließlichen Sortieren nach 
Z-Werten fast immer die korrekte Darstellung erhält. 

Die Berechnung von Schlagschatten ist gegenüber den 
verdeckten Kanten und Rächen eigentlich recht simpel. 
Grundkenntnisse der Vektorrechnung und analytischen 
Geometrie erleichtern das Verständnis. An der Mathematik 
kommt man (leider) nicht vorbei. Dazu betrachten wir nun 
Bild 3. 

Es sei I der Vektor vom Koordinatenursprung zur punkt¬ 
förmigen Lichtquelle mit den Koordinaten (LX,LY,LZ) und p 


ZwaxCP1> 
ZmsxCP2) 



der Vektor zu einem beliebigen Punkt P mit den Koordina¬ 
ten (PX,PY,PZ) einer beliebigen Kante eines Polygons. 
Dann gilt: 

1) r=p-l (Vektorsubtraktion) 

Wir erhalten einen neuen Vektor r mit den Koordinaten 
(RX,RY,RZ). Der Schlagschatten des Punktes P soll nun 
auf die Y-Ebene mit Y=0 fallen. Der sich ergebende Punkt 
soll PS heißen. Wir erhalten somit: 

2) PS=l+S*r 

Der Vektor vom Koordinatenursprung zum Punkt PS 
ergibt sich also aus dem Vektor I plus den verlängerten Vek¬ 
tor r. Hierzu wird der Vektor r mit einem Skalar S multipliziert 
und dann zum Vektor I geometrisch addiert. Da wir wissen, 
daß die Y-Koordinate des Punktes PS immer gleich 0 sein 
muß, ergibt sich für S eine lineare Gleichung in Y: 

3) 0=LY+S*RY oder LY+S*RY=0 - > S=-LY/RY 
Bildlich gesehen ist der Schlagschatten eines Polygons 

eine Projektion dieses Polygons auf eine Ebene, in diesem 
Fall die Ebene Y=0. 

Wem das alles zu theoretisch ist, der betrachte Bild 3. 
Dann sollte einiges klarer erscheinen. 

Als letztes kann man sich überlegen, daß der Schlag¬ 
schatten eines Objektes gleich der Summe der Schlag¬ 
schatten seiner Polygone ist. Zeichnen wir also zunächst 
jedes Polygon und dann den Schlagschatten des Polygons, 
so erhalten wir als Ergebnis das Objekt und den Schlag¬ 
schatten des Objekts. 

Das abgedruckte Programm (Listing 1) ist als solches 
zwar in sich abgeschlossen und lauffähig, es soll aber auch 
eine Basis für weitere Experimente darstellen. Deshalb 
wurde bewußt auf aufwendige Menüs und »Kosmetik« ver¬ 
zichtet, weil das alles schließlich wertvollen Speicherplatz 
kostet. Des weiteren ist das ganze Programm in Basic 
geschrieben, so daß eine Adaption auf andere Computer 
keine großen Schwierigkeiten bereiten sollte. 

Zunächst zum Hauptprogramm. Die wichtigsten Varia¬ 
blen und Felder werden gleich zu Beginn des Programms 
in den Zeilen 80 bis 120 festgelegt. 

- Die Felder POLY_Z(100) und PRIO(IOO) enthalten Pri¬ 

orität und den größten 2-Wert der einzelnen Polygone, in 
diesem Fall für maximal 100 Einzelpolygone. 

- Die Felder SX, SY, SZ, X, Y enthalten die Koordinaten der 
Eckpunkte der Schatten und die transformierten Koordi¬ 
naten der Objekte oder Schattenpolygone. In diesem Fall 
darf jedes Polygon maximal 10 Eckpunkte besitzen. 

- In den Zeilen 100 und 110 befinden sich die Variablen für 
die Bildschirmbegrenzungen. Es sind: 

CLIPXL kleinste X-Koordinate (linker Bildrand) 

CLIPXR größte X-Koordinate (rechter Bildrand) 

CLIPYB kleinste Y-Koordinate (unterer Bildrand) 
CLIPYT größte Y-Koordinate (oberer Bildrand) 
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Bild 2. Fläche PI verdeckt P2 
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Bild 3. Berechnung und Darstellung von Schlagschatten 





































Im Listing ist die Einstellung eines Atari Grafikstufe 8 
Screen mit 320x192 Punkten vorgegeben. 

In Zeile 120 befinden sich die Koordinaten der Lichtquelle 
(LX,LY,LZ) und die Y-Koordinate der Schattenebene (SP). 

Zur Anpassung an andere Computer ist folgendes zu 
beachten: 

- Die Anpassung an die verschiedenen Bildschirmgrößen 
erfolgt mit den Variablen CLIPXL, CLIPXR, CL1PYB, CLI- 
PYT. Diese sollten in Zeile 100 und 110 entsprechend verän¬ 
dert werden (zum Beispiel für Schneider oder Atari ST mit 
640*400 Punkten = > CLIPXR-639, CLIPYT=399). 

- Sollen mehr als 100 Polygone verwendet werden, müs¬ 
sen die Feldvariablen POLY_Z und PRIO entsprechend 

dimensioniert werden. 

- Sollen mehr als 10 Eckpunkte pro Polygon verwendet 
werden, müssen die Feldvariablen SX, SY, SZ, X, Y ent¬ 
sprechend dimensioniert werden. 

In letzteren beiden Fällen muß man den vorhandenen 
Speicherplatz berücksichtigen. 

Die Transformation von Objekt- in Bildschirmkoordinaten 
erfolgt in der Prozedur »CALCSCREEN« in den Zeilen 800 
bis 840. Die Formeln hierzu lauten: 

- Zeile 810 : xc=(xv/2)*(T(0)/T(2))+(xh/2) 

- Zeile 820: yc=(xv/2)*(T(1)/T(2))+(xv/2), wobei xv=maxi¬ 
male Y-Koordinate und xh=maximale X-Koordinate ist. 
Die Transformation ist so ausgelegt, daß der Punkt 0,0 in 

der linken unteren Ecke liegt. Bei Computern mit dem 
Ursprung links oben muß der Wert yc noch einmal vom 
maximalen Y-Wert subtrahiert werden, um die korrekte 
Ansicht zu erhalten (siehe Zeile 830). Die transformierten 
Koordinaten befinden sich in den Variablen XC und YC. 

Die diversen GRAPH ICS-Befeh!e im Listing dienen zur 
Umschaltung zwischen dem Grafikmodus mit und ohne 


Textfenster. Auch diese Anpassung sollte keine Schwierig¬ 
keiten bereiten. Die Struktur der Prozeduren läßt sich ein¬ 
fach durch GOSUB und RETURN ersetzen. Gleiches gilt 
für die IF-, ELSE- und ENDIF-Blöcke. Probleme kann es 
allerdings beim UND-Operator in Zeile 3200 geben 
(..CA&CB...). Denn nicht jeder Computer verfügt über diese 
Funktion. 

Zum besseren Verständnis und damit eine eventuelle 
Umsetzung auch gelingt, hier eine Kurzbeschreibung der 
einzelnen Prozeduren. 

- PROC CLRMAT (480 bis 560) Löschen der Matrix MA,MB 
oder MC. 

- PROC INITMAT (580 bis 620) Initialisieren der Matrix MA. 
Die Elemente der Hauptdiagonaien werden mit 1 
beschrieben. 

- PROC MULTMAT (640 bis 780) Multiplizieren der Matri¬ 
zen MA und MB zu MC. 

- PROC CALCSCREEN (800 bis 840) Transformation der 
dreidimensionalen in zweidimensionale Koordinaten. 

- PROC CALCPOINT (860 bis 930) Multiplizieren einer 
Koordinate T mit der Transformationsmatrix MC. 

- PROC MOVE (950 bis 1030) 

Berechnen der Verschiebematrix MB zur Bewegung des 
Objektes. Übergabeparameter sind TX,TY und TZ. 

- PROC ROTATE (1050 bis 1300) 

Die Rotationsmatrix. Übergabeparameter sind ACHSE$ 
für die Achse und G in Gradmaß für den Winkel. 

- PROC SCALE (1320 bis 1390) Skalierungsmatrix mit den 
Parametern SX, SY und SZ. Durch Verändern kann das 
Objekt in allen drei Dimensionen gestaucht oder 
gestreckt werden. 

- PROC PERSPECTIVE (1410 bis 1460) Hier erfolgt eine 
perspektivische Anpassung an den Bildschirm. Durch 
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Jii.cjh.ael Sc Joe.cJiim Malier* GJbR 
Postfach. 1304 
7913 Senden / Iller- 
Telefon: 07307 x 6230 


Atari 800 XL/130 

2218 Baker Sfrea 


D 40,90 

Ajyhni 

IC 19,90 

Gaunilei 

K 27,90 

D 39,90 

Cronuwelt House 

D 29,90 

Gouidet Deeper Dungeorts 

IC U r 90 


Star Roifter (Modul) 

M 19,90 

Mwcfliary Compeadiuin Deirtsä 

K 40,90 

D 49,00 

Hflod an« Heels 

K 28,90 D 39,90 

ieoderböflrd Golf 

K 27,90 

D 39,90 

Space Lobsler 

K 24,90 029,90 

Leacterbord Toimwmerf 

fC u,ro 

D 19,90 

Sprang 

X 24,90 D 29,90 

Spindizzy 


D 39,90 

Mitra Rytfim (Schlagzeug 

X 9,90 

bwlbdl Manager 

* K 9,90 


Mr. Robc-i 

l£ 9,90 

ThlcnlafBrinLyrne 

* K 9,90 


Fieklibf Fire- 

D 29,90 

Bodderdaskll 

1 K 9,90 


ZoneX 

K 9,90 

Atifcc 

Kennedy Appraoai 

1 IC 9,90 

D 29,90 



?itsop II 

The Eidaten 

' K 9,90 

D 15,90 

Zubehör 


ToimIkjw5; 

K 28,90 

D 39,90 

Disketten Preäsion 2 Kdt. 5,25' 

ID Stück 12,90 

Ninja (Müsterfranic) 

K 9,90 


Dütenrecaraer Commander 

69,00 

TbePgwn 


D 55,00 

Dntickerinterface Wtes-mann 72000 

199,00 

Arkanold 

K 34,90 

D 39,00 

Abdeddiwbc 300X1 

Wsdiplosft 9,90 

Pisfcll 1 und II (Modal) 

E* 

M 24,90 

Abdeähnube 13ÖXL 

Weidiplasfilc 9,90 

Knigls of rbe Desed 

* 

D 39,00 

Abdeckboubeftr Floppy 1050 

Weidtploslik 9,90 

MlneiWtf 

* 

M 24,90 

Abdecidnubeftr Dalenreltorder 1010 

Weiehplosfik 9,90 

King Si&50 [50 Programme) 

K 12,90 


Abdecktemibe für Dateroecerder 

Migbt RüifteriÄardy Ardvark 

* K 9,90 


Ccmnmn&r 

Wetaipterik 9,90 

Cobens Tewersfosmic Tunnels 

' X 9,90 


JayTtkk Qusdibot 11 

15,90 

Koromi Rih 


D 29,90 

Joystick Quteksfwt LI Pias (mit MkroschalEef] 22,90 

Kenrwdy Appraadi 


D 29,90 

Joystick Magnum [mitMicrasctatai] 

29,00 


1 Sonderangebote solange Mxrat rekk 1 Verxmdbjten: bis DM 150,-, 6,- (Nodinahuej, 3,50 {Yoraislrasse] doruber 
YsreanJcodefffrei, Liste gegen DM 0,80 in ßrieHmoricM 
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Verändern der Variablen wird der Fluchtpunkt verscho¬ 
ben. Am besten mal ausprobieren. 

- PROC CLRT (1480 bis 1520) 

Löschen des T-Feldes. 

- PROC VIEW (1540 bis 1680) 

Erstellung einer Ansicht ohne verdeckte Kanten. 

Wie schon erwähnt, soll das ganze als Experimentierba¬ 
sis dienen. Außerdem findet sich noch die gesondert abge¬ 
druckte Prozedur »AN IMATE« (Listing2). Diese läßt sich mit 
»ENT£R"D1:ANIMATE.LST"«in das Programm einbinden 
(Achtung: Dabei dieZeilennummem nicht verändern!). Mit 
Hilfe dieser Prozedur kann man Animationssequenzen 
zusammenstellen (Einzelbildaufnahmen). 

Die Ablage der Koordinaten und Polygon-Informationen 
erfolgt in DATA-Zeilen. Diese werden unabhängig vom 
eigentlichen Programm geschrieben und dann als geson¬ 
dertes File mit »LIST"D1:(NAME).IMG"« auf Diskette 
gespeichert. Später, nachdem das Hauptprogramm mit 
LOAD geladen wurde, kann das gewünschte Objekt-File 
mit Hilfe des ENTER-Befehls nachgeladen werden. Fol¬ 
gendes ist zu beachten: 

- Die erste Zeilennummer ist immer 10000, und in dieser 
Zeile befindet sich immer die Anzahl aller Polygone des 
Objektes. 

- Für jedes Einzelpolygon ist ein »Zehnerblock« vorgese¬ 
hen, der immer bei ganzen Vielfachen von 10 beginnt 
(Also 10010, 10020, 10030...). 

- In diesen Zeilen befindet sich dann die Anzahl der Eck¬ 
punkte des Einzelpolygons. 

- Alle weiteren Zeilen enthalten die Koordinaten des Poly¬ 
gons. Hierbei erfolgt die Numerierung in Einserschritten. 

- Zuletzt sollte noch eine Abschlußzeile eingefügt werden, 
die den Wert 0 enthält. 

Ein einfaches quadratisches Polygon müßte so defi¬ 
niert werden: 


10020 DATA 4: Ein Quadrat hat bekanntlich 4 Eckpunkte 

10021 DATA X1,Y1,Z1: Koordinate des 1. Eckpunktes 

10022 DATA X2,Y2,Z2: Koordinate des 2. Eckpunktes 

10023 DATA X3,Y3,Z3: Koordinate des 3. Eckpunktes 

10024 DATA X4,Y4,Z4: Koordinate des 4. Eckpunktes 

10030 DATA.(nächstes Polygon) 

Auf diese Art und Weise ensteht eine bestimmte Ord¬ 
nung-in der Zeilennumerierung. So würde zum Beispiel 
die Zeiiennummer 10232 entsprechend der letzten drei 
Ziffern besagen: 23. Polygon, 2. Eckpunkt. Hierzu finden 
sich auch drei Beispiele abgedruckt (Listing 3 bis 5). 

Die Bedienung des Programms ist recht simpel. Fol¬ 
gende Kommandos stehen zur Verfügung: 

MOVE, ROTATE, SCALE, VIEW und HIDE. 

Die Parameter X, Y und Z beziehen sich bei den Befeh¬ 
len MOVE und SCALE auf Koordinaten, beim R0TATE- 
Kommando sind die Winkel für jede Achse einzugeben. 

Eines ist unbedingt zu beachten: Nachdem alle 
Bewegungs- und Rotationskommandos ausgeführt sind, 
muß für die korrekte Darstellung immer die Anpassung¬ 
sprozedur »PERSPECTIVE« aufgerufen werden. Diese 
gewährleistet die korrekte Positionierung des Flucht¬ 
punktes. Eine Kommandoeingabe kann so aussehen: 
command: ROTATE (RETURN) :Der Rotationsbefehl 
X,YY: 10,20,0 (RETURN) :Rotiere 10 Grad über X und 20 
Grad über Y 

command: MOVE (RETURN) :Der Move Befehl 

X,Y,Z: 0,0,10 (RETURN) :Bewegung um 10 Einheiten in Z- 

Richtung 

command: PERSPECTIVE (RETURN) Perspektivische 
Anpassung 

command: VIEW Darstellung als Drahtmodeli 
command: HIDE Darstellung mit Schlagschatten und 
verdeckten Kanten. 

(Theo Janssen/rz/hf) 


10 REM CCTL QJCCTL RJCCTL RJCCTL RJCCTL 


240 

END IF 

<UZ> 

RJCCTL RJtCTL RJtCTL RJ -CCTL RJ £CTL RJtCT 


2S0 

IF KQMS(I t 3)= m RÖT m 

<GP> 

L RJCCTL RJ CCTL RJ CCTL RJCCTL RJ CCTL RJC 


260 

INPUT "X,Y,Z:>";AA„A3 4 AC 

<IX> 

CTL RJ-CCTL RJ CCTL RJCCTL RI CCTL. RI CCTL R 


270 

ACHSE*=■X":S=AA:EXEC ROTATE 

<BG> 

>CCTL RJCCTL RJCCTL RJCCTL RJCCTL RJCCTL 


280 

ACHSES- ,, Y"2G-ABiEXEC ROTATE 

<co> 

RJCCTL RJCCTL EJ 

<IZ3> 

290 

ACHSES="Z " r G=AC:EXEC ROTATE 

<DH> 

28 REM CSHIFT =J 3D GRAFIK PAKET 


300 

ENDIF 

<US> 

CSHIFT =J 

<EG> 

310 

IF KOM*(1,3)="SCA" 

<in> 

30 REM CSHIFT =J BY THEO JANSSEN 19S6/S 


320 

INPUT "X,Y,Zi>“;AA,AB,AC 

<ZQ> 

7 CSHIFT => 

<FR> 

330 

SX=AA:SY—ABsSZ=AC 

<QP> 

40 REM CCTL 2>CCTL RJCCTL RJCCTL RJCCTL 


340 

EXEC SCALE 

<FS> 

RI CCTL RI ■CCTL RI CCTL RI CCTL RJtCTL RJCCT 


350 

ENDIF 

<\tc> 

L RJCCTL RJCCTL RJCCTL RJCCTL RJCCTL RJ£ 


360 

IF KOMIÜ t 3> —“HID" 

<HH> 

CTL RJCCTL RJCCTL RJCCTL RJCCTL RJCCTL R 


370 

GRAPHICS 24 

<XY> 

ICCTL RJCCTL RJCCTL RJCCTL RJCCTL RICCTL 


380 

EXEC SET COL 

<#f K> 

RJCCTL RJCCTL C> 

<L£> 

390 

EXEC HIDDENVIEW 

<YU> 

50 REM 

<JS> 

400 

GET KEY 

<MJ> 

60 REM 

<i7T> 

410 

GRAPHICS 40 


70 DIM MAC3,3),MBC3,3)»MC<3,3> 

<LA> 

420 

EXEC SET COL 

<LZ> 

80 DIM F(3),TC3),POLY^Z(100),PRIO(100) f 5 


430 

ENDIF 

<UZ> 

X(10),SY(10),SZC10) 

<PH> 

440 

IF KDMSCI-SJ^LIG“ THEN INPUT 

■•NEInUL 

90 DIM ACHSE* U> ,KDM*(20> t X«0) t YU0> 

<XH> 

ISHT*PaSlTION-.CX,Y.Z>J“(LX.LY.LZ 

<HC> 

100 CLIPXL=05CLIPXR=319 

<VK> 

450 

IF KOM*a,3)«"SHA" THEN INPUT 

”SHADO 

110 CLIPYB=0SCLIPYT=19I 

<AF> 

W(S)*ON*Y—HEIBHT:":SP 

<J 4P> 

120 LX=0:LY=70;LZ-0= SP=-10 

<FD> 

460 

GOTO 160 

<OJ> 

130 GRAPHICS SsEXEC SET^COL 

<HJ> 

470 

— 

<JT> 

140 COLOR 1 

<XR> 

480 

PROC CLRMAT 

<JU> 

150 EXEC INITMAT 

<DS> 

490 

FOR 1=0 TO 3 

<MR> 

160 INPUT M command > w iKOM* 

<KG> 

500 

FOR J^0 TO 3 

<MJ> 

170 IF KOM#(1,3)="VIE" THEN CLS ft&iEXEC 


510 

IF MAT-1 THEN MA(J,I>=0 

<A£> 

VIEW 

<HQ> 

S20 

IF MAT=2 THEN MB (J, 1)^=0 


180 IF KOM#(1,3)=”INI” THEN EXEC INITMAT 

<MH> 

530 

IF MAT=3 THEN MC(J,I)=0 

<CÜ> 

190 IF K0M*(1,3)*"PER" THEN EXEC PERSPEC 


540 

NEXT J 

<GH> 

TI VE 

<ZH> 

550 

NEXT I 

<GF> 

200 IF K0M*a,3)="M0V“ 

<££> 

560 

ENDPROC 

<KT> 

210 INPUT "X,V,Zs>"lAA,AB.AC 

<XM> 

570 

— 

<JU> 

220 TX=AAsTV=A8;TZ=AC 

<RT> 

580 

PROC INITMAT 

<HN> 

230 EXEC MOVE 

<UK> 

g 

in 

MAT—1:EXEC CLRMAT 

<KA> 







































































600 MAC0,0)=1sMA(1 t 1>=1 <cy> 
610 MAC2,2>=1;MAC3*3)=1 <tf/> 
620 ENDPROC <#Cff> 
630 — <JH> 
640 PROC MULTMAT <Nt» 
650 MAT=3iEXEC CLRMAT <KL> 
660 FOR K=0 TO 3 <HF> 
670 FOR J=0 TO 3 <tfY> 
680 FOR 1=0 TO 3 <HR> 
690 MC(J , K >=MC( J, ZO +MA£ I f K)*MB(J,I) <LQ> 
700 NEXT I <FX> 
710 NEXT J <GJ> 
720 NEXT K <610 
730 FOR 1=0 TO 3 <MI> 
740 FOR J=0 TO 3 <HT> 
750 MACI,J)=MCCI*J) <F£> 
760 NEXT J <GT> 
770 NEXT I <GL > 
780 ENDPROC <*Z> 
790 — <K4> 
800 PROC CALCSCREEN <PZ?> 
810 XC=95-5*£T(0)/T(2)>+159-5 <CtY> 
820 YC=95-5*CTC1>/TC2>)+95-5 <M> 
830 YC=191—YC <£¥> 
840 ENDPROC <KS> 
850 — <JT> 
860 PROC CALCPOINT <4£> 
870 FOR J=0 TO 3 <HÄ> 
380 FOR 1=0 TO 3 <HT> 
890 T{J> =T{J> +P< I > *MC(J ,I> <LD> 
900 NEXT I <FZ> 
910 NEXT J <£?£> 
920 IF T(2K1 THEN TC2)=1 <TF> 
930 ENDPROC <KR> 
940 — <JS> 
950 PROC MQVE <tfÖ> 
960 MAT-2t EXEC CLRMAT <KH> 
970 MB (0,8)=1:MB CI,1> —1 <EL> 
980 MB (2,2) = 1:MB(3,3> =1 <1V> 
990 MB(0,3)=TX </J> 
1000 MB(1,3)=TY <NZ> 
1010 MBC2,3)=TZ <P4> 
1020 EXEC MULTMAT <ZG> 
1030 ENDPROC <tfi> 
1040 — <VQ> 
1050 PROC ROTATE <AR> 
1060 DES <00> 
1070 MAT=2:EXEC CLRMAT <LZ> 
1080 IF ACHSet="X" <PG> 
1090 MB(0,0)=liMBC3,3)=l <DC> 
1100 MBa,l)=COStS) <YQ> 
1110 MB(2,1)=-SIN(G> <DG> 
1120 MBU,2)=SINCG) <BJ> 
1130 MB<2,2)=C0SCG) <Z7> 
1140 ENDrF <SU> 
1150 IF ACHSE$= 11 Y" <PQ> 
1160 MBC1,1)=1:MB<3 T 3)=1 <DP> 
1170 MB £0, 0 )=COS( G) <YR> 
1180 MBC2,0)=SINCG) <BQ> 
1190 MB(0,2>=-SINCG> <QX> 
1200 MBC2,2)=C0SCG> <ZH> 
1210 ENDIF <SN> 
1220 IF ACHSES="Z" <QA> 
1230 MB £ 2,2) =1:MB C3,3> = 1 <EC> 
1240 MB C 0,0 ) =C □ S(G > <YK> 
1250 MB(1,0)=—SIN(G) <0A> 
1260 MBC0*I)=SINCG> <BD> 
1270 MBC1,1)=C05(G> <ZN> 
1280 ENDIF <TJ> 
1290 EXEC MULTMAT </lF> 
1300 ENDPROC <01 > 
1310 — <I/Af> 
1320 PROC SCALE <ST> 
1330 MAT=2;EXEC CLRMAT <LT> 
1340 MB£3,3)=1 <X£> 
1350 MBC0,0)=SX <M8> 
1360 MB(1,1)=SY <NN> 
1370 MB(2,2)=SZ <0Z> 
1380 EXEC MULTMAT <4£7> 
1390 ENDPROC <PJ> 
! 400 — <V7f> 


1410 PROC PERSPECTIVE <SO> 
1420 MAT=2=EXEC CLRMAT <LS> 
1430 MB£0,0)=4:MB(1,1)=4 <£A> 
1440 MB£2,2)=1:MB£3*3>=1 <£J> 
1450 EXEC MULTMAT <AH> 
1460 ENDFRÖC <PC> 
1470 — <MH> 
1480 PROC CLRT <PX> 
1490 FOR 1=0 TO 3 <XQ> 
1500 T £ I> =0 <FQ> 
1510 NEXT I <FC> 
1520 ENDPROC <QS> 
1530 — <YX> 
1540 PROC VIEN <RH> 
1550 RESTORE (10000) <ZG> 
1560 READ P NUMBER <AH> 
1570 FOR K—l IQ P_NUMBER <SP> 
1580 READ E NUMBER,XP t YP,ZP <TS> 
1590 XA=XPsYA=YPiZA=ZP <1H> 
1600 FOR L=2 TO E_NUMBER <LN> 
1610 READ XL,YL,ZL <BF> 
1620 EXEC SHOWLINE <VY> 
1630 XP=XL:YP=YL:ZP=ZL <MZ> 
1640 NEXT L <GU> 
1650 XL=XA:YL=YA:ZL=ZA <MX> 
1660 EXEC SHOWLINE <MK> 
1670 NEXT K <GS> 
1680 ENDPROC <Pff> 
1690 — <KÄ> 
1700 PROC SORTPÜLY <^t> 
1710 RESTORE £10800) <YY> 
1720 READ P NUMBER <4£> 
1730 FOR R=1 TO P_NUMBER <UZ> 
1740 POLY Z CR) =0 <Cf9> 
1750 NEXT^R <JN> 
1760 TEXT 0,180, *'sorting*Polygons*: " <Y£/> 
1770 FOR R=1 TO F_NUMBER <VL> 
1780 TEXT 152 9 180,R <UY> 
1790 ZGES=0 <DH> 
1800 READ E NUMBER <VJ> 
1810 FOR 5=1 TO E_NUMBER <QA> 
1820 READ X,Y,Z <KM> 
1830 P£0)=X:PC1)=Y:PC2)=Z;PC3)=1 <tW> 
1840 EXEC CLRT <LT> 
1850 EXEC CALCPOINT <$N> 
1860 ZG£S=ZGES+T(2> <00> 
1S70 IF TC2)>POLY_Z CR) <UA> 
1SS0 POLY_Z CR)=T£2) <LX> 
1890 ENDIF <7X> 
1900 NEXT S <JW> 
1910 ZMIT=ZGES/E_NUMBER <DH> 
192BI POLY Z CR) =POLY_Z £R)+ZMIT <HA> 
1930 NEXT R <JL> 
1940 FOR R=1 TO P_NUMBER <VG> 
1950 PRIO(R)=1 <I£> 
I960 NEXT R <j£/> 
1970 FOR S=1 TG P_NUMBER <VZ> 
1980 W=1 <ZH> 
1990 FOR R-l TO P_NUMBER <VV> 
2000 IF (POLY^ZCR)>=POLY_Z(W)> THEN W=R <AR> 
2010 NEXT R <lü> 
2020 PR10£S)=W <CÖ> 
2030 POLY.Z(W)=—9E-20 <PR> 
2040 NEXT S <JI> 
2050 ENDPROC <0S> 
2060 — <YX> 
2070 PROC HIDDENVIEW <AG> 
2080 EXEC SORTPOLY <RH> 
2090 CLS *6 <£F> 
2100 RESTORE £10000) <YK> 
2110 READ P NUMBER <ZQ> 
2120 FOR Q=! TO P NUMBER <£/B> 
2130 RESTORE <10000+(PRIOCG)*10)> <T0> 
2140 READ E NUMBER <YI> 
2150 FOR S-T TO E.NUMBER <HZ> 
2160 READ X,Y,Z <KH> 
2170 P(0)=X:P(1)=YiP(2)=ZiP C3) = 1 <HV> 
21S0 EXEC CLRT <LS> 
2190 EXEC CALCPOINT <Sff> 
2200 EXEC CALCSHADQW <Ü8> 

Listing 1 - »3D-Graftk« 
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2210 

EXEC CALCSCREEN 

<IR> 

3010 

ENDIF 

<SL> 

2220 

X < S) =XC: Y C S > =YC 

<EF> 

3020 

IF Y<CLIPYB 

<VJ> 

2230 

NEXT S 

<JJ> 

3030 

C-C+2 

<HS> 

2240 

FQR S=i TO E NUMBER 

<NY> 

3040 

ELSE 

< TI > 

2250 

T=S+1 

<QN> 

3050 

IF Y>CLIPYT 

<HO> 

2260 

IF T>E_NUMBER THEN T=1 

<cn> 

3060 

C=C+1 

<HR> 

2270 

XH=XCS7:YH=YCS> 

<YC> 

3070 

ENDIF 

<TD> 

2280 

XJ—X(T>:YJ=Y CT) 

<8B> 

3080 

ENDIF 

<TG> 

2290 

CL=0rEXEC DDA 

<TR> 

3090 

ENDPROC 

<PF> 

2300 

NEXT S 

<JC> 

3100 

— 

<VI> 

2310 

FOR S=1 TO E NUMBER 

<HR> 

3110 

PROC CLIP 

<1H> 

2320 

T=S+1 

<GG> 

3120 

VIS=1 

<AB> 

2330 

IF T>E NUMBER THEN T=! 

<CF> 

3130 

X=XF:Y=YF 

<XH> 

2340 

XF=XCS)!YF“Y CS) 

<HD> 

3140 

EXEC CODE 

<XP> 

2350 

Xe-XCT):Y6=Y(T> 

<YG> 

3150 

CA=C 

<f/Z> 

2360 

COLQR I 

<YÜ> 

3160 

X~XG:Y=YG 

<YT> 

2370 

EXEC CLIP 

<FC> 

3170 

EXEC CODE 

<XY> 

2380 

IF VIS 

<ZJ> 

3180 

CB=C 

<HY> 

2390 

PLOT XF,YF:DRAWTO XG,YG 

<YE> 

3190 

WH ILE CCAO0) OR (CBO0) 

<XQ> 

2400 

ENDIF 

<SP> 

3200 

IF (CA&CBX >0 THEN LET VIS=0:ENDPRO 


2410 

NEXT S 

<JH> 

C 


<HT> 

2420 

EXEC PLOTSHADOW 

<JR> 

3210 

C~CA;CZ—CA 

<KH> 

2430 

NEXT Q 

<IR> 

3220 

IF C=0 THEN LET C=CB:CZ=CB 

<XX> 

2440 

ENDPRQC 

<OX> 

3230 

IF CC/8)>=1 

<PJ> 

2450 

— 

<WC> 

3240 

Y“YF+ CYS—YF>*(CLIPXL-XF)/CXG-XF) 

<8Y> 

2460 

PROC DDA 

<KS> 

3250 

X=CLIPXL 

<PR> 

2470 

LENGTH=A8S(XJ-XH) 

<UE> 

3260 

C=C-8 

<LF> 

2480 

IF ABS<YJ-YH)>LENGTH THEN LENETH”AB 


3270 

ENDIF 

<TH> 

SCYJ- 

-YH> 

<DF> 

3280 

IF <C/S>>-0,5 

<EC> 

2490 

XINC=(XJ-XH) /LENGTH 

<CI> 

3290 

Y=YF+ CYG-YF)* CCLIPXR—XF>/<XG-XF) 

<IH> 

2500 

YINC=CYJ~YH)/LENGTH 

<CQ> 

3300 

X=CLIPXR 

<SE> 

2510 

XD=XH+0,5:YD=YH+0-5 

<QY> 

3310 

C=C-4 

<JE> 

2520 

FOR POINT=1 TO LENGTH 

<FA> 

3320 

ENDIF 

<SU> 

2530 

FOR N=I TO E NUM 

<BG> 

3330 

IF CC/8)>=0-25 

<OG> 

2540 

COLOR CL 

<TA> 

3340 

X=XF+ C XG-XF > * t CLIPYB-YF)/(YG-YF) 

<VJ> 

2550 

XF—XD:YF=YD:XG=X CN)s YG-Y CN> 

<XJ> 

3350 

Y=CLIPYB 

<LL> 

2560 

EXEC CLIP 

<FU> 

3360 

C=C—2 

<IZ> 

2570 

IF VIS 

<IK> 

3370 

ENDIF 

<TJ> 

2580 

PLOT XF,YF 

<YH> 

3380 

IF (C/8)>=0 P 125 

<AS> 

2590 

DRAWTO XG,YG 

<H2> 

3390 

X=XF+(XG-XF)* C CL IPYT-YF>/CYG-YF) 

<m> 

2600 

PLOT INTtXF),INTCYF) 

<DD> 

3400 

Y^CLIPYT 

<TY> 

2610 

DRAWTO XS,YG 

<HM> 

3410 

C-C-l 

<IC> 

2620 

ENDIF 

<SZ> 

3420 

ENDIF 

<su> 

2630 

NEXT N 

<HO> 

3430 

IF CZ—CA 

<JZ> 

2640 

XD=XD+XINC 

<DP> 

3440 

XF=X:YF=Y:EXEC CODE 

<EF> 

2650 

YD=YD+YINC 

<ET> 

3450 

CA=C 

<HQ> 

2660 

NEXT POINT 

<QE> 

3460 

ELSE 

<TH> 

2670 

ENDPROC 

<PK> 

3470 

XG=X:YG-YsEXEC CODE 

<FH> 

2680 

■— 

<UP> 

3480 

CB=C 

<XE> 

2690 

PROC SHOWLINE 

<AU> 

3490 

ENDIF 

<TR> 

2700 

EXEC CLRT 

<L6> 

3500 

WEND 

<7Q> 

2710 

P C0) =XPs P ( 1) =YP: P C2) =ZP: P C3> =1 

<NL > 

3510 

ENDPROC 

<OR> 

2720 

EXEC CALCPÜINT 

<SD> 

3520 

— 

<vu> 

2730 

EXEC CALCSCREEN 

<JH> 

3530 

PROC CALCSHADOW 

<SR> 

2740 

XF=XC:YF=YC 

<BX> 

3540 

SX CS)=LX-TC0) 

<XF> 

2750 

EXEC CLRT 

<LV> 

3550 

SY CS) =LY—T CD 

<YT> 

2760 

P (0) =XL: PCI) ==YL; P C2> =ZL: P C3> =1 

<EU> 

3560 

SZCS>=LZ-TC2) 

<AH> 

2770 

EXEC CALCPOINT 

<s s> 

3570 

5KALAR=-C CLY+C-SP))/SYCS)) 

< IL > 

2780 

EXEC CALCSCREEN 

<JH> 

3580 

SX CS) =LX+SX fS) -»SKALAR 

<ai> 

2790 

XG=XC:YG=YC 

<DG> 

3590 

SY(3)—SP 

<HF> 

2800 

EXEC CLIP 

<ER> 

3600 

SZ CS> =LZ+SZ CS)»SKALAR 

<UG> 

2810 

IF VIS 

<HY> 

3610 

ENDPRQC 

<OT> 

2820 

PLOT XF,YF 

<YA> 

3620 

— 

<VY> 

2830 

DRAWTO XG,YG 


3630 

PROC PLOTSHADOW 

<NZ> 

2840 

ENDIF 

<TJ> 

3640 

FOR S=t TO E_NUMBER 

<OH> 

2850 

ENDPROC 

<PI> 

3650 

TC0)=SX(S):TC1)=SY<S) 

<IB> 

2860 

■— 

<UN> 

3660 

TC2)=SZ CS):T <3)=1 

<FY> 

2870 

PROC SET^COL 

<HQ> 

3670 

EXEC CALCSCREEN 

<JS> 

2380 

SETCOLOR‘"2,0,12 

<UH> 

3680 

X CS) =XC: Y (S) =YC 

<FG> 

2890 

SETCOLOR 4,0,12 

<VÖ> 

3690 

NEXT 5 

<KK> 

2900 

SETCOLDR 1,0,0 

<FR> 

3700 

FOR S=1 TO E NUMBER 

<HX> 

2910 

ENDPROC 

<OY> 

3710 

T=S+1 

<QH> 

2920 

— 

<XD> 

3720 

IF T>E NUMBER THEN T=1 

<CL> 

2930 

PROC CODE 

<CB> 

3730 

XH=XCS):YH=Y(S> 

<YB> 

2940 

C=0 

<UH> 

3740 

XJ=XCT):YJ=Y{T) 

<8A> 

2950 

IF X<CLEPXL 

<BP> 

3750 

CL=1 : EXEC DDA 

<TZ> 

2960 

C=8 

<XF> 

3760 

NEXT S 

<KD> 

2970 

ELSE 

<UI> 

3770 

ENDPROC 

<PN> 

2980 

IF X>CLIPXR 

<GK> 

3780 


<HS> 

2990 

C=4 

<X1> 




3000 

ENDIF 

<SI> 

Usting 1. »3D-Grafik« (SchluB) 
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455 IF KQM$ (1 ,3) = " ANI J1 TBEN EXEC ANIMATE 

<AJ> 

5170 

PMZ=(Z PE-Z PS)/STEP 


<SI> 

5000 

PRQC AMIMATE 

<KY> 

5180 

FOR BILD=0 TO STEP 


<KZ> 

5010 

GRAPHICS 0:EXEC SET COL 

<VP> 

5190 

EXEC INITMAT 


<UG> 

5020 

PRINT 

“STARTPOSITION" 

<RS> 

5200 

G=X WS:ACHSE$="X":EXEC 

ROTATE 

<NE> 

5030 

INPUT 

"Winkeln(x,y,z) X WS,Y_WS,Z_ 


5210 

G-Y WS=ACHSE$="Y“=EXEC 

ROTATE 

<GK> 

WS 



<GY> 

5220 

G= Z WS:ACHSE*“"Z M s EXEC 

ROTATE 

<PQ> 

5040 

INPUT 

"Position-, (x,y,z> “; X_PS, Y_PS, 


5230 

TX=X_PS:TY=Y_PS:TZ=Z_PS 

<VÖ> 

Z_PS 



<EF> 

5240 

EXEC MOVE 


<KZ> 

5050 

PRINT 

: PRINT : PRINT 11 ENDPOSITION" 

<QN> 

5250 

EXEC PERSPECTIVE 


<PC> 

5060 

INPUT 

"Winkel* Ck , y, z > ";X_WE , Y_WE,Z_ 


5260 

EXEC HIDDENVIEW 


<H$> 

WE 



<ZN> 

5270 

SET KEY 


<QU> 

5070 

INPUT 

"Position*(x,y,z)";X_PE,Y_PE, 


5280 

X_WS=X_KS+WMX 


<PQ> 

Z_PE 



<TO> 

5290 

Y WS=Y WS+WMY 


<RC> 

50 SO 

PRINT 

:PRINT :PRINT 

<QY> 

5300 

Z~WS=Z~WS+WMZ 


<RM> 

5090 

INPUT 

“in*welchem*Zeiträum*Csec-) 


5310 

X_PS=X PS+PMX 


<EY> 

TI 



<CR> 

5320 

Y PS=Y PS+PMY 


<GK> 

5100 

GRAPHICS 24:EXEC SET COL 

<MS> 

5330 

Z_PS-2>S+PMZ 


<HU> 

5110 

STEP=TI*25 

<AX> 

5340 

CLS #6 


<EJ> 

5120 

WMX-CX 

WE-X WS)/STEP 

<ZA> 

5350 

NEXT BILD 


<GX> 

5130 

WNY=CY 

_WE-Y WS)/STEP 

<Ai f> 

5360 

ENDPROC 


<PE> 

5140 

WMZ=(Z 

WE-Z WS>/STEP 

<3Y> 

5370 

— 


<HJ> 

5150 

PMX=(X 

PE-X^PS)/STEP 

<PK> 





5160 

PMY=(Y 

PE-Y PS)/STEP 

<QH> 

Listing 2. »ANIMATE.LST« 




10000 

DATA*6 

<JZ> 

10041 

DATA*l,1,-1 

<LZ> 

10010 

DATA*4 

<JF> 

10042 

DATA*1,1,1 

<IP> 

10011 

DATA*-i,l,-l 

<R8> 

10043 

DAT A*1,-1,1 

<m f> 

10012 

DAT A*1,1,-1 

< LS> 

10044 

DATA*1,-l,-l 

<RZ> 

10013 

DATA*1,-1,-1 

<RI> 

10050 

DAT A*4 

<JV> 

10014 

DATA*-i,-l,-l 

<Ylt> 

10051 

DATA*-1,1,1 

<HJ> 

10020 

DATA*4 

<JJ> 

10052 

DATA*1,1,1 

<JT> 

10021 

DATA*1,1,1 

<IC> 

10053 

DAT A*I , I , — 1 

<ttH> 

10022 

DATA*—1*1*1 

<fiC> 

10054 

DATA*-1,1,-1 

<SG> 

10023 

DATA*-1,-1,1 

<RS> 

10060 

DATA*4 

<JZ> 

10024 

DATA*I,-1,1 

<ttJ> 

10061 

DATA*!,-1,1 

<HK> 

10^30 

DATA*4 

<JN> 

10062 

DATA*—1, — 1 ,1 

<SD> 

10031 

DATA*-1,1,1 

<tfS> 

10063 

DAT A*-1, — 1, — 1 

<ZJ> 

10032 

DATA*-1,1,-1 

<RÜ> 

10064 

DATA*l,-l,-i 

<SH> 

10033 

DATA*—1, — 1, — i 

<YX> 

20000 

DATA*0 

<XG> 

10034 

DATA*—1, — 1,1 

<SB> 




10040 

DATA*4 

<JR> 

Listing 3. »WUERFEL.IMG« 



10000 

DATA*19 

<*£> 

10073 

DATA*4,0,4 

< LY > 

10010 

DATA*4 

<JF> 

10074 

DATA*2,0,4 

<LF> 

10011 

DATA*-1,1,-1 

<RB> 

100S0 

DAT A*3 

<JV> 

10012 

DATA*l,1,-1 

<LS> 

10081 

DATA*2,0,2 

<J0> 

10013 

DATA*!,-1,-1 

<RZ> 

100S2 

DATA*3,2,3 

<LX> 

10014 

DATA*-1,-1,-1 

<YU> 

10083 

DATA*4,0,2 


10020 

DATA*4 

<JJ> 

10090 

DATA*3 

<JZ> 

10021 

DAT A*1,1,1 

<1C> 

10091 

DATA*2 f 0,4 

<KY> 

10022 

DATA*-!,1,1 

<MC> 

10092 

DATA*3,2,3 

<H8> 

10023 

DATA*-!,-1,1 

<RS> 

10093 

DATA*4,0,4 

<MG> 

10024 

DATA*1,—1,1 

<HJ> 

10100 

DAT A*3 

<IS> 

10030 

DATA*4 

<JH> 

10101 

DATA*2,0,2 

<ZL> 

10031 

DATA*-1,1,1 

<M8> 

10102 

DAT A* 3,2,3 

<KU> 

10032 

DATA*—1,1,-1 

<RÖ> 

10103 

DATA*2,0,4 

<KB> 

10033 

DATA*-1,-l,—1 

<YX> 

10110 

DATA*3 

<JW> 

10034 

DAT A*—1 , — 1,1 

<SB> 

10111 

DATA*4,0,2 

<JN> 

10040 

DATA*4 

<JR> 

10112 

DATA*3,2,3 

<KY> 

10041 

DATA*1,1,-1 

<LZ> 

10113 

DATA*4,0,4 

<LD> 

10042 

DATA*1,1,1 

<IP> 

10120 

DAT A*3 

<JA> 

10043 

DAT A*1, — 1,1 

<m> 

10121 

DATA*-2,0,-2 

<RY> 

10044 

DATA*1,—11 

<RZ> 

10122 

DAT A*—3, 2 ,-3 

<UM> 

10050 

DATA*4 

<JV> 

10123 

DATA*—4,0,—2 

<TI> 

10051 

DATA*-1,1,1 

<HJ> 

10130 

DAT A*3 

<JE> 

10052 

DAT A*1,1,1 

<2T> 

10131 

DATA*—2,0,—4 

<TM> 

10053 

DATA*1,1,-1 

<MH> 

10132 

DATA*-3,2,-3 

<UQ> 

10054 

DATA*—1,1,-1 

<SG> 

10133 

DAT A*—4, 0 ,—4 

<UH> 

10060 

DAT A*4 

<JZ> 

10140 

DATA*3 

<JI> 

10061 

DAT A*1, — 1,1 


10141 

DATA*—2,0,-2 

<SG> 

10062 

DATA*-!,-1,1 

<S£?> 

10142 

DATA*-3,2,-3 

<UU> 

10063 

DATA*-1,-1,-1 

<ZJ> 

10143 

DAT A*-2,0,-4 

<UA> 

10064 

DAT A*1, — 1, — 1 

<SH> 

10150 

DATA*3 

<Jt f> 

10070 

DAT A*4 

<KD> 

10151 

DATA*-4,0,-2 

<TK> 

10071 

DATA*2,0,2 

<JK> 




10072 

DATA*4,0,2 

<KN> 

Listing 4. »KQERPER.IMG« 
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10152 

DATA*-3,2,-3 

<UY> 

10181 

DATA.-2,0,-2 

<sw> 

10153 

DATA*-4,0,-4 

< VE"> 

10182 

DATA*.—3,-2,-3 

<CR> 

10160 

DAT A*3 

<JG> 

10183 

DATA*.—2,13, —4 

<UQ> 

10161 

DATA*-2,0,-2 

<S0> 

10190 

DATA*3 

<KC> 

10162 

DATA*-3,-2,-3 

<CJ> 

10191 

DATA*—4,B,—2 

<UA> 

10163 

DAT A*—4,0 , —2 

<TY> 

10192 

DATA*—3,—2,-3 

<CV> 

10170 

DATA*3 

<JU> 

10193 

DATA*—4,0,—4 

<VU> 

10171 

DATA*-2,0,-4 

<UC> 

20000 

DATA*0 

<HG> 

10172 

DATA*-3,-2,«3 

<CH> 




10173 

DATA*-4,0,-4 

<VÜ> 




10180 

DATA*3 

<JY> 

Listing 4. »KOERPER.IMG« (Schluß) 



10000 

DATA*26 

<JU> 

10141 

DATA*.8,1.4,-.2 

<CP> 

10010 

DATA*4 

<JF> 

10142 

DATA*.8,1.4,.2 

<SF> 

10011 

DATA*-.2,-1.4,-,2 

<AK> 

10143 

DATA*.4,1.4,.2 

<QK> 

10012 

DATA*-.2,1.4,-.2 

<m> 

10144 

DATA*.4,1.4,-.2 

<8E> 

10013 

DAT A^.2,1.4, — ,2 

<ZK> 

10150 

DAT A*4 

<JY> 

10014 

DAT Aa,2,—1.4,-.2 

<fii> 

10151 

DATA*.4,1.4,-.2 

<AT> 

10020 

DATA*4 

<jj> 

10152 

DATA*.4,1.4,.2 

<GJ> 

10021 

DATA*— - 2 , —1 . 4 , . 2 

<HN> 

10153 

DATA*.4,-.2,.2 

<MY> 

10022 

DATA*—,2,1-4,.2 

<zz> 

10154 

DAT A*.4,-.2,-.2 

<XS> 

10023 

DATA*.2,1.4, .2 

<DZ> 

10160 

DATA*4 

<KC> 

10024 

DATA*.2,-1.4,.2 

<AE> 

10161 

DATA*.8,1.4,-.2 

<CX> 

10030 

DATA*4 

<JN> 

10162 

DATA*.8,1.4,.2 

<SH> 

10031 

DATA*—,2,-1.4,-.2 

<AS> 

10163 

DATA*.8, —.2, . 2 

<PC> 

10032 

DATA*.2,-1.4,-.2 

<HG> 

10164 

DATA*.8,-.2, -.2 

<ZU> 

10033 

DATA*.2,-1,4,.2 

<AD> 

10170 

DATA*4 

<KG> 

10034 

DATA*-.2,-1.4,.2 

<HG> 

10171 

DATA*-.8,-.2,-.2 

<HJ> 

10040 

DATA*4 

<JR> 

10172 

DATA*—.4,—.2,-.2 

<KK> 

10041 

DATA*-.2,1.4,-.2 

<HK> 

10173 

DATA*—1.2,-1.4,-.2 

<UF> 

10042 

DATA*.2,1.4,-.2 

<ZR> 

10174 

DATA*-1.B,-1.4,«.2 

<XH> 

10043 

DATA*.2,1.4,-2 

<PH> 

10180 

DATA*4 

<KK> 

10044 

DATA*-.2,1.4,.2 

<AR> 

10181 

DATA*-,8,-.2,.2 

<AF> 

10050 

DAT A*4 

<JV> 

10182 

DATA*-.4,-.2,.2 

<YG> 

10051 

DATA*-.2,-1.4,.2 

<MZ> 

10183 

DAT A*—1.2,«1.4,.2 

<EP> 

10052 

DATA*«.2,1-4, .2 

<AL> 

10184 

DATA*—1.8,-1.4,.2 

<IG> 

10053 

DATA*—.2,1.4,—.2 

<HY> 

10190 

DATA*4 

<K0> 

10054 

DATA*-.2,-1.4*-.2 

< BP > 

10191 

DATA*«.8,-.2,.2 

<AJ> 

10060 

DATA*4 

<JZ> 

10192 

DATA*—l.S,—1.4,.2 

<IA> 

10061 

DATA*.2,— I . 4,. 2 

<AF> 

10193 

DATA*-!.8,—1.4,-.2 

<XZ> 

10062 

DAT A*.2,1.4,.2 

<PK*> 

10194 

DATA*«.S,«.2,«.2 

<NG> 

10063 

DATA*.2,1.4,-, 2 

<AE> 

10200 

DATA*4 

<JH> 

10064 

DATA*.2,-1.4,-.2 

<NC> 

10201 

DATA*-,4,-.2,.2 

<HY> 

10070 

DATA*4 

<KD> 

10202 

DAT A*—1.2,«1.4,.2 

<DH> 

10071 

DATA*«.S,1.4,—.2 

<QC> 

10203 

DAT A*«1.2,-1.4,-.2 

<TG> 

10072 

DATA*-,4,1.4,-.2 

<ÖD> 

10204 

DATA*-.4,-.2,-.2 

<JV> 

10073 

DATA*-.4,-.2,«.2 

<KM> 

10210 

DATA*4 

<JL> 

10074 

DATA*«.8,-.2,-.2 

<MV> 

10211 

DATA*—1.8,-1,4,—.2 

<H91> 

10080 

DATA*4 

<KH> 

10212 

DAT A*—1.2, —1.4,—.2 

<TF> 

10081 

DATA*-.3,1.4,-2 

<DY> 

10213 

DATA*—1.2,—1.4,.2 

<DQ> 

10082 

DATA*-.4,1.4,.2 

<BZ> 

10214 

DAT A*—1.8,—1.4,*2 

<HH> 

10083 

DATA*-.4,-.2,.2 

<YI> 

10220 

DAT A*4 

<JP> 

10084 

DATA*-.8,-.2,.2 

<AR> 

10221 

DATA*.8,-.2,-.2 

<YÜ> 

10090 

DATA*4 

<KL> 

10222 

DATA*.4,-.2,-.2 

<HZ> 

10091 

DATA*«.8,1.4,-.2 

<QK> 

10223 

DAT A*1.2, —1.4, — .2 

<DA> 

10092 

DATA*-,8,1.4,.2 

<EH> 

10224 

DATA*1.8,—1.4,«-2 

<GL> 

10093 

DATA*-.4,1.4,.2 

<C2> 

10230 

DATA*4 

<JT> 

10094 

DATA*-.4,1.4,«.2 

<GV> 

10231 

DATA*.8,-.2,.2 

<ÖJ> 

10100 

DATA*4 

<JE> 

10232 

DATA*.4,-.2,.2 

<M0> 

10101 

DATA*-.4,1.4,-.2 

<MZ> 

10233 

DAT A*1.2, —1.4,.2 

<PD> 

10102 

DATA*-.4,1.4,,2 

<AH> 

10234 

DATA*1.8,—1.4,.2 

<SÖ> 

10103 

DATA*-.4,-.2,.2 

<XF> 

10240 

DATA*4 

<JX> 

10104 

DATA*«.4,-.2,-.2 

<JS> 

10241 

DATA*.8,-.2,*2 

<0H> 

10110 

DATA*4 

<J1> 

10242 

DATA*1.8,«1.4,.2 

<SI> 

10111 

DATA*-,8,1.4,-.2 

<PH> 

10243 

DATA*1.8,—1.4,—.2 

<GG> 

10112 

DATA*-.8,1.4,.2 

<DE> 

10244 

DATA*.S,—.2,—.2 

<ZR> 

10113 

DATA*-,3,-.2,.2 

<ZH> 

10250 

DATA*4 

<KB> 

10114 

DATA*-.8,-.2,-.2 

<lfA> 

10251 

DATA*.4,«.2,.2 

</f R> 

10120 

DATA*4 

<JH> 

10252 

DATA*1.2«—1.4«.2 

<PG> 

10121 

DATA*.8,1.4,-.2 

<CH> 

10253 

DATA*1.2,—1.4,—.2 

<DM> 

10122 

DATA*.4,1.4,-.2 

<Att > 

10254 

DATA*.4,-.2,-,2 

<XV> 

10123 

DATA*.4,-* 2,-.2 

<XB> 

10260 

DATA*4 

<KF> 

10124 

DATA*.8,-.2,-.2 

<ZG> 

10261 

DATA*1-8,—1.4,—,2 

<GM> 

10130 

DATA*4 

<JQ> 

10262 

DAT A*1.2, — 1.4, — ,2 

<DL> 

10131 

DATA*.8,1.4,.2 

<RK> 

10263 

DATA*1,2,—1.4,.2 

<PP> 

10132 

DATA*.4,1.4,.2 

<G8> 

10264 

DAT A*1*8, —1-4,-2 

<TA> 

10133 

DATA*.4,—,2,.2 

<MQ> 

20000 

DATA*0 

<HG> 

10134 

DATA*.8,-.2,.2 

<0V> 




10140 

DA?A*4 

<Jü> 

Listing 5. »LOGO.IMG« 
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Benutzerfreundliche 

Programme 


Um ein Programm benutzerfreundlich zu gestal¬ 
ten, bedarf es viel Zeit. Zeit, die eigentlich besser 
genutzt werden könnte. Mit unserem Programm 
sparen Sie diese Zeit, denn Menüsteuerungen 
sind damit spielend leicht programmierbar. 

H aben Sie schon einmal versucht, ein Programm 
möglichst benutzerfreundlich zu gestalten? Nor¬ 
malerweise geschieht dies über Menüs, die vom 
Anwender abgerufen werden und ihm die jeweilige aufge¬ 
rufene Funktion erklären. Schön und gut. Nur, bis man sein 
Programm mit einem Menü versehen hat, vergeht meistens 
nochmal die gleiche Zeit wie bei der Entwicklung des 
gesamten Programms. 



Das »Screen-Def i nit i o n-Uti I it y« läßt sich in Programme ein¬ 
binden und erzeugt Bildschirmmasken mit allen Abfragen 


Um Ihnen die Arbeit bei der Gestaltung von Menüs zu 
erleichtern, haben wir das »Screen-Definition-Utility« veröf¬ 
fentlicht, mit dem sich einfach und komfortabel eine kom¬ 
plette Bildschirmmaske aufbauen läßt. In diese lassen sich 
an beliebiger Stelle Abfragen nach Zahlen oder Zeichen¬ 
ketten eänbauen. Anschließend schreibt unser Programm 
verschiedene Files auf Diskette, die in eigene Programme 
einbindbar sind und die die Bildschirmmaske mit allen 
Abfragen erzeugen. 


»5DU« für meisterhafte Menüs 


Das Programm ist in Turbo-Basic geschrieben (Listing 1). 
Es benötigt noch ein weiteres File. Dieses ist als AMPEL- 
Listing abgedruckt (Listing 2) und muß auf der gleichen Dis¬ 
kette wie das Screen-Definition-Utility unter dem Namen 
»SDU« vorhanden sein. 

Nach dem Starten des Programms werden Sie nach dem 
Filenamen gefragt, unter dem die einzelnen von Screen- 
Definition-Utility erzeugten Files abgelegt werden. Geben 
Sie bitte keine Extension an, da das Programm mehrere 
Files mit dem angegebenen Namen erzeugt, zur Unter¬ 
scheidung aber jeweils eine andere Extension einsetzt. 


Anschließend fragt das Programm, ob das erzeugte 
Basic-Programm in kurzer oder langer Form gespeichert 
werden soll. Bei der langen Form wird aus jeder Zeichen¬ 
folge, die zwischen zwei Leerzeichen steht, ein eigener 
Print-Befehl erzeugt, die kurze Fassung verwandelt jede 
40-Zeichen-Zeile vom Bildschirm in einen Print-Befehl. 

Memory fragt nach der hexadezimalen Adresse, ab 
der Screen-Definition-Utility ein Maschinensprache-Pro¬ 
gramm erzeugt, das dann in eigenen Programme einge¬ 
bunden wird. Dieses Maschinenprogramm lädt eine vorge¬ 
fertigte Eingabemaske von der Diskette. Die Adresse muß 
zwischen $9000 und $CC40 liegen. Drücken Sie hier ein¬ 
fach nur < RETURN >, wird die Adresse $BC40 angenom¬ 
men. 

Schließlich folgt die Frage nach dem Mark-Zeichen. Mit 
diesem Zeichen markieren Sie in der Eingabemaske Stel¬ 
len, an der Ihr späteres Programm eine Eingabe fordern 
soll. Dieses Zeichen ist normalerweise das <@> -Zeichen 
(Klammeraffe, Affenschaukel, wie auch immer), Sie kön¬ 
nen jedoch jedes beliebige andere Zeichen dafür definie¬ 
ren. 


Beliebige Abfragepositionen 


Nach dieser Eingabe gelangen Sie in den Editor, mit dem 
sich Eingabemasken konstruieren lassen. Falls auf der Dis¬ 
kette schon eine Maske unter dem im Eingangsmenü ein¬ 
gegebenen Namen vorhanden ist, wird diese automatisch 
geladen. Mit dem Cursor lassen sich an verschiedenen 
Stellen Zeichen setzen. Versehentlich gesetzte Zeichen 
löschen Sie wieder mit der < SPACE >-Taste. Eine ganze 
Zeile wird mit der Tastenkombination <SHIFT> und 
< DELETE > gelöscht, und folgende Zeilen werden nach¬ 
gerückt. Die Bildschirmposition in der rechten untersten 
Ecke kann nicht belegt werden, da der Biidschirminhalt 
sonst eine Zeile nach oben rücken würde und damit der 
Bildschirmaufbau zerstört würde. Mit <ESC> verläßt man 
den Editor. Steht der Cursor beim Drücken von < ESC> in 
der obersten linken Ecke, werden die folgenden beiden 
Programmmteile nicht ausgeführt, und man befindet sich 
sofort im »Order«-Programm. 

Steht der Cursor jedoch beim Verlassen des Editors an 
einer anderen Position, wird die Maske auf der Diskette 
gespeichert und anschließend die »Searching«-Routine 
aufgerufen. Diese durchsucht die Maske nach im Editor 
eingebenen Mark-Zeichen. Findet die Search-Routine ein 
Mark, so fragt sie nach dem Variablennamen, den 
sie der an dieser Stelle eingebenen Zeichenfolge oder Zahl 
geben soll. 

Sind alle Marks gefunden und der ganze Bildschirm 
durchsucht, wird die Order-Routine aufgerufen. Mit dieser 
legt man die Reihenfolge fest, in der die einzelnen Abfra¬ 
gen auf dem Bildschirm erscheinen sollen. Drücken Sie 
gleich zu Anfang <ESC> und wurde vorher die 
Searching-Routine nicht aufgerufen, so wird die Einstel¬ 
lung von einer vorher vorhandenen Maske übernommen 
und gleich der nächste Programmteil angesprungen. 
Ansonsten steht der Cursor auf der ersten Eingabe. Wollen 
Sie, daß diese Marke nicht als erstes in Ihrem Programm 
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abgefragt wird, springen Sie mit < + > oder <*> die 
nächste Marke an. Mit < RETURN > wird dann die Marke 
als nächstes in der Abfragereihenfolge festgelegt. Mit 
<ESC> löschen Sie eine komplette Aöfragereihertfolge. 

Ist die komplette Abfragereihenfolge der Marken gespei¬ 
chert, so springt das Programm schließlich in das 
Generate-Menü. Hier werden Sie nach der ersten Zeilen¬ 
nummergefragt, unter der die Eingabemaske in Ihrem Pro¬ 
gramm stehen soll, sowie nach dem Abstand der Zeilen¬ 
nummern. Anschließend wird das Eingabemasken-Pro- 
gramm auf Diskette gespeichert. 

Auf Ihrer Diskette stehen dann insgesamt sechs Files, die 
das Eingabemaskenprogramm benötigt. Um die Maske in 
Ihr Programm einzubinden, geben Siedie Befehle »ENTER 


"D: Filename. BAS"« sowie ENTER "D:FilenameJNP"« 
ein. In Ihrem Programm muß dann am Anfang noch der 
Befehl »BLÜAD "D:Fifename.ASM"« Vorkommen. Jetzt 
wird die definierte Eingabemaske ohne Probleme geladen 
und ausgeführt, (Daniel Sebastianelli/hf) 


Steckbrief 

Programm: 

Screen-Definition-Utility 

Sprache: 

Turbo-Basic 

Eingabehilfe: 

Prüfsumme und AMPEL 

Datenträger: 

Diskette 


10 POKE 106,191 <KO> 

20 DIM FIC_NAME$U5> ,BAS_NAME$ CIS) ,MEM_N 
AME$<15>,EXT_NAME$(15),INP_NAME$C15>,ASM 
_NAME$ 115),NAHESC11> <HG> 

30 DIN ZCS8,43> ,A$(40) ,KEYS(41) ,KEYl$a2 
> <ZA> 

40 KEY$="$ C , > 0123456789ABCDEFGHIJKLMNOPQ 
RSTÜVWXYZ^' 1 <IR> 

50 KEY!$=" CESC DELJCESC CTL <> CESC CTL > 

JCESC SHIFT »CESC CTL DEL* CESC SHIFT DE 
LJCESC CTL +J CESC CTL *JCESC CTL -JCESC 
CTL => CESC ESCJV <JQ> 

60 POKE 82,0 <SC> 

70 FÜR 1=0 TO 8 <GK> 

80 READ AS <KY> 

90 FOR J=0 TO 19 <LV> 

100 POKE S060ß+J+I*20,ASC(A$(J+1>> <BH> 

110 NEXT J <GJ» 

120 NEXT I <FV> 

130 GRAPHICS 0 <SM> 

140 DL=DPEEK(560) < AK> 

150 POKE DL—2,112 <JI> 

160 POKE DL—1,70 <FE> 

170 POKE DL+2,112 <2R> 

1SB DPOKE 560,DL-2 <JV> 

190 BILD—DPEEK(88> <ZB> 

200 # MENUE <FB> 

210 CLS <AU> 

220 POKE 752,0 <IH> 

230 POKE 729,40 <OT> 

240 POKE 730,5 <JY> 

250 DPOKE DL,$0600+160 <Sff> 

260 CL05E #1 <LK> 

270 POSITION 16,18 <M> 

280 PUT 158 <PF> 

290 I=LEN(NAME$>+1 <LR> 

300 TRAP #ERRQR <DT> 

310 OPEN #l,4,0, M D:SDir <WY> 

320 BGET #1,BILD,959 <W£> 

330 CLOSE #1 <LF> 

340 PUT 158 COY> 

350 NAME$= M D: n < Jti> 

360 1=2 <GE> 

370 REPEAT <DH> 

380 1=1+1 <QS> 

390 REPEAT <DQ> 

400 # INPUT_NAME <KP> 

410 POKE 702,64 <NZ> 

420 POKE 694,0 <Z.E> 

430 TRAP #INPUT_NAME:GET KEY <JV> 

440 IF 1=3 <ÖW> 

450 OK=INSTR(KEY$,CHR$(KEY),14) <ZS> 

460 ELSE <YC> 

470 OK=INSTR<KEYS,CHRS(KEY),4) <TQ> 

480 ENDIF <VJ> 

490 IF KEY=126 AND I>3 <WR> 

500 1 = 1-1 < QU > 

510 PUT KEY <RX> 

520 ENDIF <UY> 

530 UNTIL OK>0 QR KEY=155 AND I>3 <BE> 

540 PUT KEY <SD> 


550 IF KEY0155 THEN NAMES(I>=CHR$<KEY) <PG> 
560 UNTIL 1=10 QR KEY=155 <HO> 

570 NAME$=NAME$ (1 , I —1 > <NK> 

580 POSITION 16,20 <YJ> 

590 PUT 78 <UY> 

600 REPEAT <DB> 

610 # INPUT_MIN_CODE <YK> 

620 POKE 702,64 <OD> 

630 POKE 694,0 <LI> 

640 TRAP #INPUT_MIN_CQDE:GET MIN^CODE <GZ> 
650 UNTIL MIN_CQDE=74 OR MIN_CODE=7S QR 
MIN_CODE=155 <XI> 

660 IF MIN_C0DE=155 THEN MINJ20DE=78 <KP> 

BIZ POSITION 16,20 <Y!> 

680 PUT NIN_CODE <JQ> 

690 MEMO RY=48192 CLO 

700 AS= i, BC40 H <RT> 

710 POSITION 33,18 <CÜ> 

720 ? AS <m> 

730 POSITION 33,18 <CH> 

740 PUT 158 <PC> 

750 1=0 <FS> 

760 REPEAT <ÜO> 

770 1=1+1 <QU> 

780 REPEAT <DS> 

790 # INPUT_MEMQRY <£L> 

800 POKE 702,64 <£?B> 

810 POKE 694,0 <LG> 

820 TRAP #INPUT_MEMORY:GET KEY <KJ> 

830 HEX=INSTR(KEYS(5,20),CHRS(KEY)) <CM> 

840 IF KEY=126 AND I>1 <UT> 

850 1=1-1 <RH> 

360 PUT KEY <$K> 

870 ELSE <YI> 

880 IF 1=1 <GE> 

890 ? <£D> 

900 POSITION 33,18 <CD> 

910 PUT 158 <ÖY> 

920 ENDIF <VC> 

930 ENDIF <VE> 

940 UNTIL HEX>0 OR KEY=155 AND 1 = 1 <FR> 

950 PUT KEY <SJ> 

960 AS(I>=CHR$<KEY> <ÜK> 

970 UNTIL KEY=155 AND 1=1 OR 1=4 <DB> 

9Q0 IF 1=4 <PJ> 

990 MEMORY=D£CCASa ,4) ) <ID> 

1000 MEMQRY=(MEM0RY+36864+ABS(MEMORY-368 
64>>/2 <SL> 

1010 MEMORY=(MEMORY+522S8—ABS(MEHORY-522 
B8)>/2 <Qfl> 

1020 ENDIF <Stf> 

1030 POSITION 33,18 <70 

1040 ? HEXS(MEMORY) <HT> 

1050 MARK=64 <AA> 

1060 POSITION 33,20 ,<FE> 

1070 PUT MARK <CF> 

1080 REPEAT <EX> 

1090 REPEAT <FA> 

1100 ft INPUT^MARK <GJ> 

1110 POKE 702,64 <I/D> 

1120 POKE 694,0 <Qtf> 




56 































1130 

TRAP *INPUT MARK:GET KEY 

<OG> 

1910 

Y=1 

<ZH> 

1140 

OK=IN3TR(KEY$<5,40>, CHR$(KEY)) 

<XP> 

1920 

REPEAT 

<EX> 

1150 

OK1=1NSTR(KEYIS,CHR$(KEY)> 

<IV> 

1930 

XM BILD-IM BILD+1 

<HK> 

1160 

UNTIL GK=0 AND DK1=0 OR KEY=155 

<AQ> 

1940 

CHR=PEEK(IH^BILD) 

<GP> 

1170 

IF KEY0155 THE« MARK=KEY 

<UC> 

1950 

INV_CHR=(CHR+12Q) MOD 256 

<BQ> 

1180 

POSITION 33,20 

<PJ> 

1960 

POKE IM BILD,INV_CHR 

<WC> 

1190 

PUT MARK 

<CH> 

1970 

IF CHR091 AND (CHR>0 OR MlN_ 

C0DE=7 

1200 

UNTIL KEY=155 

<XG> 

4) 


<QO> 

1210 

MARK=PEEK < 81LD+S33 > 

<RP> 

1980 

IF CHR=MARK 

<GN> 

1220 

PQKE 729,10 

<UK> 

1990 

DPOKE DL,$0600+20 

<VB> 

1230 

POKE 730,1 

<MY> 

2000 

CHR=0 

<UJ> 

1240 

PUT 158 

<OR> 

2010 

1=5 

<HK> 

1250 

CLS 

<TY> 

2020 

Y-i 

<YZ> 

1260 

I=LEN(NAME$)+1 

<8tf> 

2030 

X=X+i 

<SP> 

1270 

HEM NAME$=NAME$ 

<CP> 

2040 

Z(X t Y)=IM BILD-BILD 

<Bi4> 

1280 

MEM NAHES <I)=".MEM" 

<GY> 

2050 

Y-Y+l 

<7J> 

1290 

PIC NAME$=NAME$ 

<BN> 

2060 

Z(X,Y)—0 

<LfZ> 

1300 

PIC_NAME#(I> =" . PIC“ 

<BT>j 

2070 

Y=Y+1 

<TP> 

1310 

BAS_NAME$=NAME$ 

<AF> 

2080 

REPEAT 

<EY> 

1320 

BAS_NAME* <I> =".BAS" 

<XP> 

2090 

REPEAT 

<FB> 

1330 

EXT_NAME$=NAME$ 

<HQ> 

2100 

# INPUT YAR 

<ÖF> 

1340 

EXT NAHES (!)="■ EXT" 

<BU> 

2110 

POKE 702,64 

<KE> 

1350 

INP_NAMES=NAM£$ 


2120 

POKE 694,0 

<QD> 

1360 

INP^NAMES (I)=".INP" 

<QG> 

2130 

TRAP #INPUT_YAR:GET KEY 

<OX> 

1370 

ASM NAME$=NAME$ 

<DR> 

2140 

IF 1=5 

<LY> 

1380 

ASM_NAMES(I> = ”.AS«" 

<KE> 

2150 

OK-INSTR(KEY$,CHR$(KEY >,14) 

<HU> 

1390 

TRAP  

<üu> 

2160 

ELSE 

<TP> 

1400 

OPEN ti,4,0,PIC NAME# 

<Y1> 

2170 

0K=INSTR(KEYS,CHR$(KEY)) 

<GT> 

1410 

BGET #1,BILD,959 

<PH> 

2180 

ENDIF 

<TM> 

1420 

POKE 93.PEEK(BILD) 

<FH> 

2190 

IF KEY-126 AND I>5 

<XB> 

1430 

# EMPTY 

<PH> 

2200 

1 = 1-1 

<LA> 

1440 

CLOSE #1 

<NÜ> 

2210 

PQKE $0600+20+1,0 

<EA> 

1450 

PUT 158 

<GY> 

2220 

ENDIF 

<SR> 

1460 

DPQKE DL,$0600 

<KG> 

2230 

UNTIL DK>0 OR KEY=155 

<GD> 

1470 

REPEAT 

<FC> 

2240 

IF KEYOI26 AND KEYOI55 

<OR> 

1480 

REPEAT 

<FF> 

2250 

POKE $0600+20+I,KEY—32 

<ES> 

1490 

# INPUT_CHAR 

<AK> 

2260 

1 = 1 + 1 

<LA> 

1500 

TRAP #INPUT_CHAR:GET KEY 

<EZ> 

2270 

ENDIF 

<TG> 

1510 

UNTIL CPEEK £84) < >23 ÜR KEY0155) AN 


2280 

UNTIL KEY=155 DR 1-19 

<KM> 

D KEY0125 

<XH> 

2290 

DPOKE DL,$0600+40 

<K£> 

1520 

IF PEEK (34) =23 AND FEEK <85)—39 THEN 


2300 

FOR J=5 TO 1-1 

<CP> 

PUT 

31 

<#/£> 

2310 

Z < X,Y >=PEEK < $0600+20+J)+32 

<VP> 

1530 

POKE 99,119 

<AÖ> 

2320 

Y=Y+1 

<TG> 

1540 

PUT KEY 

<ÜX> 

2330 

POKE $0600+20+J,0 

<FC> 

1550 

UNTIL KEY=27 

<PC> 

2340 

NEXT J 

<FT> 

1560 

IF PEEK < 84)=0 AND PEEK(85)=0 

<GS> 

2350 

Y=1 

<ZO> 

1570 

TRAP #MENUE 

<HR> 

2360 

ELSE 

<TT> 

1580 

OPEN #1,4,0,MEM NAHES 

<CA> 

2370 

IF Y=1 

<QH> 

1590 

GET #1 ? X 

<VK> 

2380 

X=X+1 

<7K> 

1600 

FOR I -0 TO X 

<ÜY> 

2390 

Z(X,Y>=IM BILD-BILD 

<CR> 

1610 

FOR J=0 TO 2 

<HP> 

2400 

Y=Y+1 

<70 

1620 

GET #1;Z 

<VR> 

2410 

Z(X,Y> =1 

<VF> 

1630 

IF J=1 

<KV> 

2420 

Y=Y+1 

<ri> 

1640 

GET #1;ZH 

<IR> 

2430 

ENDIF 

<SY> 

1650 

Z=ZH*256+Z 

<TJ> 

2440 

IF CHR=64 THEN CHR=0 

<HK> 

1660 

ENDIF 

<TK> 

2450 

IF CHR<64 

<FK> 

1670 

Z(I,J)=Z 

<GD> 

2460 

ASC CHR=CHR+32 

<BE> 

1680 

NEXT J 

<GK> 

2470 

ELSE 

<TY> 

1690 

J=J-1 

<HM> 

2480 

IF CHR>63 AND CHR<96 

<C7> 

1700 

REPEAT 

<EN> 

2490 

ASC CHR=CHR-64 

<GJ> 

1710 

J=J+1 

<L2> 

2S00 

ELSE 

<7F> 

1720 

GET #1;Z 

<VT> 

2510 

IF CHR>127 AND CHR<192 

<ZP> 

1730 

za,j>=z 

<FT> 

2520 

ASC CHR=CHR+32 

<AU> 

1740 

UNTIL Z=0 

<YB> 

2530 

ELSE 

<TÖ> 

1750 

NEXT I 

<FS> 

2540 

IF CHR>191 AND CHR<224 

<HH> 

1760 

HFLAG“1 

<CD> 

2550 

ASC CHR=CHR—64 

<FZ> 

1770 

CLOSE #1 

<HS> 

2560 

ELSE 

<TX> 

1780 

TRAP #ERROR 

<RL> 

2570 

ASC_CHR=CHR 

<FK> 

1790 

OPEN #1,4,0,PIC NAMES 

<ZP> 

2580 

ENDIF 

<7P> 

1800 

BGET #1,BILD,959 

<PH> 

2590 

ENDIF 

<7S> 

1810 

CLOSE #1 

<NC> 

2600 

ENDIF 

<S7> 

1820 

ELSE 

<TQ> 

2610 

ENDIF 

<SM> 

1830 

POKE 752,1:PUT 27 

<XC> 

2620 

Z ( X,Y ) =ASC_CHR 


1840 

TRAP #ERRDR 

<R8> 

2630 

Y=Y+1 

<TP> 

1850 

OPEN #1,8,0,PIC NAMES 

<BJ> 

2640 

IF fIM_BILD-BILD+U MOD 40=0 

THEN Y 

1860 

BRUT #1,BILD,959 

<XM> 

= 1 


<FZ> 

1370 

CLOSE #1 

<NU> 




1880 

DPOKE DL,$0600+40 

<HH> 




1890 

IH BILD=BILD—1 

<FY> 

Listing 1- »Screen-Definltion-Utility«. 


1900 

X=—1 

<ox> 

Bitte mit Prüfsummer eingeben. 













































2650 

ENDIF 



<T2> 

3450 

POKE POS,CHR 

<GS> 

2660 

ELSE 



<TZ> 

3460 

UNTIL L —1 =X 

<VO> 

2670 

Y=1 



<AA> 

3470 

PUT 158 

<PG> 

2680 

ENDIF 



<Tfl> 

3480 

CLS 

<UH> 

2690 

POKE IM_ 8 ILD,CHR 



<ie> 

3490 

POKE 752,0:PUT 158 

<SA> 

2700 

IF X>37 



<SE> 

3500 

DPOKE DL,*0600+100 

<JL> 

2710 

GRAPHICS 0 



<BL> 

3510 

POSITION 13,8 

<2H> 

2720 

PUT 25 



<PK> 

3520 

? "Line^Number :“5 

<U$> 

2730 

7 "ERRDR-*M£HR^AL£ 

» 88 -.FELDER" 

<JU> 

3530 

POSITION 16,10 

<PE> 

2740 

? ‘*VERSUCHE~MINIMUM- 

-CDDE^’J. 

<BR> 

3540 

7 "Increa.se: 

< LC> 

2750 

END 



<QT> 

3550 

REPEAT 

<FA> 

2760 

ENDIF 



<Ttf> 

3560 

POSITION 26,8 

<LH> 

2770 

UNTIL CHR-91 



<JY> 

3570 

7 “ 10 ", 

<ZR> 

27S0 

IF X=-l THEN GO# MENUE 

<HD> 

3580 

POSITION 26,10 

<Q2> 

2790 

POKE IMJ3ILD,0 



<FQ> 

3590 

7 " 10 ", 

<ZX> 

2800 

TRAP #ERRÜR 



<QQ> 

3600 

REPEAT 

<EN> 

2810 

OPEN #1,8,0,EXT_NAME* 

<RJ> 

3610 

# INPUT LINE 

<EQ> 

2820 

BPUT #1,BILD,959 



<XC> 

3620 

POSITION 26,8 

<LM> 

2830 

CLOSE #1 



<HJ> 

3630 

TRAP #INPUT_LINE:INPUT ”“j LINE 

<8Z> 

2840 

TRAP #ERRQR 



<RC> 

3640 

LINE=AB5(TRUNC(LINE)) 

<V$> 

2850 

OPEN #1,8,0,ASM„NAME* 

<GA> 

3650 

UNTIL LINE>=0 AND LINE<32766 

<QY> 

2860 

PUT #1,255 



<2X> 

3660 

POSITION 26,8 

<LY> 

2870 

PUT #1,255 



<JA> 

3670 

7 LINE, 

<VI> 

2880 

PUT «, MEMORY MOD 

256 

<UI> 

3680 

REPEAT 

<FL> 

2890 

PUT #1,MEMORY DIV 

256 

<xx> 

3690 

# INPUT_INC 

<GY> 

2900 

PUT #1,(MEM0RY+95S) 

MOD 256 

<HS> 

3700 

POSITION 26,10 

<PQ> 

2910 

PUT #1,(MEMORY+958) 

DIV 256 

<LZ> 

3710 

TRAP #INPUT_INC:INPUT “";INC 

<KM> 

2920 

BPUT #1*BILD,959 



<XE> 

3720 

INC=ABS(TRUNC(INC)) 

<JT> 

2930 

CLOSE #1 



<NL> 

3730 

UNTIL INO0 

<MF> 

2940 

ENDIF 



<TL> 

3740 

UNTIL LINE+((X+1)*2+1)*INC<32767 

<8K> 

2950 

DPOKE DL,$0600+60 



<XX> 

3750 

POSITION 26,10 

<QD> 

2960 

REPEAT 



<FK> 

3760 

7 INC, 

<PSZ> 

2970 

POS=Z(Z,1)+BILD 



<LS> 

3770 

Z=0 

<AB> 

2980 

IF Z(Z, 2 > =1 



<DF> 

3780 

TRAP «ERROR 

<RH> 

2990 

CHR-PEEK(P0S> 



<TX> 

3790 

OPEN #1,8,0,BAS NAHES 

<YP> 

3000 

ELSE 



<SH> 

3800 

OPEN #2,8,0,INP_NAMES 

<KD> 

3010 

CHR=3i 



<QK> 

3810 

7 #1;LINE;"*GRAPHICS^0" 

<QG> 

3020 

ENDIF 



<SO> 

3820 

7 #2;LINE; "* 6 RAPHICS^.ß" 

<QS> 

3030 

INV CHft=(CHR+128) 

MOD 256 

<AU> 

3830 

LINE=LINE+INC 

<BJ> 

3040 

POKE POS,INY_CHR 



<SK> 

3840 

7 #2; LINE; “-.OPEN*#l, 4,0, ;EXT_NAM 


3050 

TRAP #ERROR 



<QQ> 

ES; H ' 

1 *1 «i 

<OC> 

3060 

GET KEY 



<QL> 

3850 

L1NE=LINE+INC 

<8P> 

3070 

IF KEY=27 



<KA> 

3860 

? #2; LINE; *'*BGET*#1 ,DPEEK <S 8 > ,959" 


3080 

IF MFLAG“1 



<XO> 

3870 

LINEALINE+INC 

<BV> 

3090 

EXIT 



<ZG> 

3880 

? #2;LIME;"*FGKE*93,PEEK(DPEEK(SB)) 


3100 

ELSE 



<SY> 

<i 


<WS> 

3110 

FÜR 1=0 TQ X 



<UT> 

3890 

LINE=LINE+INC 

<CB> 

3120 

Z(I,0)=0 



<AG> 

3900 

I=-l 

<LN> 

3130 

NEXT I 



<FC> 

3910 

X=X+1 

<TC> 

3140 

L=0 



<HA> 

3920 

REPEAT 

<EZ> 

3150 

ENDIF 



<SZ> 

3930 

Z=Z+1 

<UK> 

3160 

ELSE 



<TQ> 

3940 

REPEAT 

<FP> 

3170 

IF MFLAG=1 



<XN> 

3950 

1 = 1+1 

<LM> 

3180 

FQR 1=0 TO X 



<VG> 

3960 

UNTIL Z(I,0>=Z 

<JF> 

3190 

Z(I,0)=0 



<BB> 

3970 

DX=Z(1,1) MOD 40 

<8L> 

3200 

NEXT I 



<EV> 

3980 

DY=Z(1,1) DIY 40 

<£V> 

3210 

L=0 



<vr> 

3990 

? # 1 ;LINE; "^POSITION-*' 1 ;DX; w ,";DY;": 


3220 

MFLAß=0 



<AX> 

PDKE*99,U9" 

<SI> 

3230 

ENDIF 



<sv> 

4000 

IF Z (I ,2) =0 THEN 7 #2;LINE;"^POSITI 


3240 

IF KEY=42 



<IV> 

OlsU": 

; DX; n , ; DY; J * s PQKE*99,119" 

<FD> 

3250 

# RIGHT 



<HF> 

4010 

LINE=LINE+INC 

<AO> 

3260 

REPEAT 



<EX> 

4020 

J=3 

<KF> 

3270 

2 = 2+1 



<ül> 

4030 

IF Z(I,2)^1 

<av> 

3280 

IF Z>X THEN Z=0 



<RR> 

4040 

? # 1 ;LINE; 

<YH> 

3290 

UNTIL ZtZ,0)=0 OR 

L- 

-1"X 

<At» 

4050 

LINEALINE+INC 

<BA> 

3300 

ELSE 



<TC> 

4060 

REPEAT 

<£U> 

3310 

IF KEY^43 



<IK> 

4070 

? #1;CHRS (2(1,3)); 

<HJ> 

3320 

REPEAT 



<EH> 

4080 

IF Z(I,J>=34 THEN ? #1;CHR$C34); 

<CA> 

3330 

Z=Z-1 



<UQ> 

4090 

J=J +1 

<LY> 

3340 

IF Z<0 THEN Z=X 



<EJ> 

4100 

UNTIL ZCI,J)=0 

<TG> 

3350 

UNTIL 2(Z,0)=0 



<HC> 

4110 

? #1 

<PA> 

3360 

ELSE 



<TU> 

4120 

ELSE 

<TF> 

3370 

IF KEY=155 



<NG> 

4130 

AS=“DUMMYs M 

<GX> 

3380 

L=L+1 



<HZ> 

4140 

7 #1;LINE; H *TRAP* B ;LINE-INC;-sINPUT 


3390 

1(2,0)=L 



<UL> 

tl II Vr i 

>. «■ 

<2H> 

3400 

GO# RIGHT 



<AZ> 

4150 

7 #2;LINE;"*TRAP*";LINE-INC?INPUT 


3410 

ENDIF 



<ST> 

ii ii ii * 

* • «- 

* * 

<IT> 

3420 

ENDIF 



<SU> 

4160 

LINE=LINE+INC 

<BF> 

3430 

ENDIF 



<sz> 

4170 

REPEAT 

<EZ> 

3440 

ENDIF 



<TC> 

4180 

FLAG =0 

<UT> 


58 
















4190 

IF Z (I , J)=40 

<ov> 

4580 NEXT J 

<GL> 

4200 

IF Z(I,J-1)=36 TUEN AS ( 6 ,7) =" S: 11 

<II> 

4590 J=J-i 

<HX> 

4210 

? #1;AS; 

<GG> 

4600 REPEAT 

<EQ> 

4220 

7 #2;AS; 

<QS> 

4610 J=J+1 

<LJ> 

4230 

J=3 

<HH> 

4620 PUT #1;Z <I,J > 

<NR> 

4240 

REPEAT 

<ES> 

4630 UNTIL Z(I,J>=0 

<rz> 

4250 

7 #1;CHRS(Z(I,J)>; 

<NH> 

4640 NEXT I 

<FQ> 

4260 

7 tt2;CHRS (Z(I,J}>; 

<NT> 

4650 CLOSE #1 

<NN> 

4270 

j=j+i 

<LT> 

4660 DPOKE DL , S0600+120 

<LY> 

42S0 

UNTIL Z(I,J)=0 

<UG> 

4670 7 

<XF> 

4290 

? #1} (1 ,LEIM<A$>-i> 

<HE> 

4680 7 

<XI> 

4300 

7 #2; "-“;Asa,LEN(AS>*l) 

<GO> 

4690 7 "NEW" 

<JY> 

4310 

FLAG=1 

<ÜN> 

4700 7 

<«W> 

4320 

ENDIF 

<SV> 

4710 7 

<HP> 

4330 

J=J+1 

<LJ> 

4720 7 "ENTERB.;BAS_NAMES 

<HJ> 

4340 

UNTIL Z (I , J )=0 

<TU> 

4730 7 "ENTER*.;INP^NAMES 

<A£> 

4350 

IF FLAG“0 

<HF> 

4740 7 " BLQAD* M ""% ASM NAMES 

<JC> 

4360 

J=3 

<UX> 

4750 END 

<QV> 

4370 

REPEAT 

<FD> 

4760 # ERRÜR 

<ND> 

4380 

7 ttljCHRiCZCI,J>) ; 

<NS> 

4770 CLOSE 

<ZE> 

4390 

7 #2 ; CHRS { Z ( I , J >); 

<0£> 

4730 DL_OLD=DPEEKCDL) 

<Ktt> 

4400 

J=J+1 

<LC> 

4790 DPOKE DL , S0600+140 

<OB> 

4410 

UNTIL ZtI,J>=0 

<TP> 

4800 POKE 764,255 

<GK> 

4420 

? #1 ; CHRS(155> ; 

<EU> 

4S10 GET KEY 

<OH> 

4430 

7 #2 ; CHRS C155) ; 

<FG> 

4820 DPOKE DL,DL OLD 

<KY> 

4440 

ENDIF 

<TD> 

4830 TRAP TERROR 

<R8> 

4450 

ENDIF 

<TG> 

4840 GOTO ERL 

<AB> 

4460 

I=-l 

<LU> 

4850 DATA*€@@@@@ 8 editor 

<HN> 

4470 

UNTIL Z=X 

<TV> 

4860 DATA*na*neZ@@@@@@@@@©@©@©@ 

<ZH> 

4480 

TRAP #ERROR 

<R1> 

4870 DATA*ee@§@@searching@@e@@ 

<ZE> 

4490 

CLOSE #1 

<HV> 

4880 DATA*@@©@@@e©order@@@@@@@ 

<GV> 

4500 

OPEN #1,8,0,MEM_NAMES 

<DJ> 

4890 DATA*nameZ©@©e@@e©£e@©@©© 

<ZQ> 

4510 

X=X-1 

<TH> 

4900 DATA*00ß@@@generate©@@00@ 

<WF> 

4520 

PUT #1;X 

<BC> 

4910 DATA*e@@@©©@@ready@e0eeee 

<BF> 

4530 

FÜR 1=0 TQ X 

<Vl> 

4920 DATA* 8 d1sc0ok_@press@key© 

<QS> 

4540 

FÜR J-ß Tü 2 

<HZ> 

4930 DATA*@@@@@©©@menu@@@@©@@@ 

<YG> 

4550 

Z=Z(I,J) 

<XV> 



4560 

PUT #lsZ 

<CO> 



4570 

IF J=1 THEN PUT #i 5 Z DI V 256 

<AZ> 

Listing 1 (Schluß) 



Programmrvame : 

: SDü 





0133:00 

00 

00 

80 

30 

30 

00 

70 

<B6> 

0290:00 

00 

00 

80 

00 

30 

30 

30 

<94 > 

Länge 



:960 Bytes 



0140:7C 

00 

00 

00 

00 

80 

00 

80 

<0ß> 

0298:03 

03 

00 

80 

00 

08 

00 

03 

<90 










0148:00 

5A 

52 

52 

52 

52 

52 

52 

<0E> 

02A0:00 

00 

08 

03 

30 

30 

30 

70 

<20 > 










0150:52 

52 

52 

52 

52 

52 

52 

52 

<09> 

32A8:70 

00 

00 

00, 

00 

00 

00 

00 

<EA> 

0030i51 

52 

52 

52 

52 

52 

52 

52 

<5B> 

0158:52 

52 

52 

52 

52 

52 

43 

08 

<41 > 

0208:00 

03 

03 

30 

00 

00 

00 

03 

<B4> 

0008= 52 

52 

52 

52 

52 

52 

52 

52 

<B3> 

0160:00 

00 

00 

00 

00 

00 

00 

70 

<DE> 

02BQ :m 

00 

80 

00 

08 

80 

80 

80 

<90 

0010:52 

52 

52 

52 

52 

52 

52 

52 

<CB> 

8168:7C 

08 

00 

00 

03 

03 

80 

00 

<28> 

0203:83 

80 

00 

00 

00 

00 

00 

03 

<C4> 

0018= 52 

52 

52 

52 

52 

52 

52 

52 

<F3> 

0170:00 

00 

00 

00 

00 

00 

00 

00 

<72> 

0208:00 

00 

80 

08 

03 

30 

30 

70 

<48 > 

0020:52 

52 

52 

52 

52 

52 

52 

45 

<EE> 

0173:00 

00 

00 

00 

33 

33 

80 

00 

<7A> 

02D0:7C 

00 

80 

00 

00 

26 

69 

60 

<69> 

0028:7C 

00 

00 

83 

80 

A3 

88 

62 

<D3> 

8138:00 

00 

00 

00 

00 

03 

08 

03 

<82> 

02DS;65 

00 

2E 

61 

6D 

65 

1A 

30 

<1E> 

0030:60 

A5 

80 

A5 

80 

AE 

30 

80 

<0F> 

0188:80 

00 

00 

80 

00 

00 

00 

70 

<06> 

02E0:00 

00 

80 

08 

03 

03 

30 

30 

<E4> 

0038:80 

80 

A4 

80 

A5 

80 

A6 

80 

<B7> 

0190:70 

00 

2B 

75 

72 

7A 

62 

65 

<20 

02ES:00 

2D 

65 

6D 

6F 

72 

79 

1A 

<E9> 

0040:A9 

80 

AE 

80 

A9 

30 

34 

30 

<95> 

0198:73 

63 

68 

72 

65 

69 

62 

75 

<53 > 

02F0:00 

22 

23 

14 

13 

30 

00 

70 

<FF> 

0048:A9 

80 

AF 

80 

AE 

00 

00 

7C 

<84> 

01A0:6E 

67 

1A 

80 

30 

00 

00 

00 

<F6> 

82FS:70 

00 

08 

80 

80 

00 

00 

00 

<BA> 

0050= 7C 

00 

00 

00 

00 

00 

00 

00 

<8£> 

01AB:00 

00 

00 

00 

00 

00 

08 

00 

<AA> 

0338:08 

00 

00 

00 

80 

00 

00 

00 

<06 > 

0058:00 

00 

00 

00 

00 

00 

65 

80 

<43> 

01B0:00 

00 

00 

30 

00 

00 

80 

70 

<2E> 

8308:00 

00 

80 

80 

00 

08 

03 

08 

<0E> 

0060:84 

80 

A9 

80 

AC 

30 

A9 

30 

<59 > 

8IBS:7C 

00 

00 

00 

00 

03 

83 

00 

<F8> 

8310:08 

00 

00 

00 

00 

00 

00 

00 

<16> 

0066:64 

80 

89 

00 

00 

00 

00 

00 

<99> 

0100:00 

00 

00 

00 

03 

00 

00 

00 

<02> 

0318:00 

00 

80 

08 

08 

83 

03 

70 

<9A> 

0070:00 

00 

00 

00 

00 

00 

00 

7C 

<EC> 

0108:00 

08 

08 

00 

03 

00 

00 

80 

<CA> 

0320:70 

00 

2D 

69 

6E 

69 

6D 

75 

<F7> 

0076:41 

52 

52 

52 

52 

52 

52 

52 

<6B> 

01D0=00 

00 

08 

03 

03 

00 

00 

00 

<D2> 

0328:6D 

80 

23 

6F 

64 

65 

1A 

30 

<19> 

0080=52 

57 

52 

52 

52 

52 

32 

52 

<99 > 

01DS:00 

00 

00 

80 

30 

30 

00 

70 

<56> 

0330=2E 

88 

83 

88 

08 

00 

08 

83 

<4D> 

0088:52 

52 

52 

52 

52 

52 

52 

52 

<3F> 

01E0:7C 

00 

00 

2D 

69 

74 

00 

20 

<B4> 

0338:00 

00 

00 

2D 

61 

72 

69 

1A 

<04 > 

0090:52 

52 

52 

52 

52 

52 

57 

52 

<51 > 

81ES:69 

6C 

66 

65 

00 

64 

69 

65 

<86> 

0340:00 

20 

00 

08 

08 

03 

03 

70 

< CA > 

0098:52 

52 

52 

52 

52 

52 

52 

44 

<60> 

01F0;73 

65 

73 

08 

30 

72 

6F 

67 

<44> 

0348:70 

00 

00 

03 

80 

30 

00 

00 

<80 

33 A3:7C 

00 

30 

00 

00 

00 

00 

00 

<DE> 

81F8=72 

61 

6D 

60 

73 

00 

6S 

6F 

<1F> 

0350:00 

00 

00 

00 

03 

80 

33 

30 

<56> 

00AB:00 

7C 

00 

00 

00 

00 

30 

72 

<59 > 

0200;65 

6E 

6E 

65 

6E 

03 

08 

7C 

<0D> 

0350:00 

00 

00 

00 

80 

00 

00 

00 

<5E> 

0080= 6F 

67 

72 

61 

6D 

6D 

69 

65 

<B3> 

0208:7C 

00 

00 

33 

69 

65 

00 

6D 

<C3> 

0360=00 

00 

00 

03 

83 

30 

00 

30 

<66> 

0083:72 

74 

00 

00 

00 

00 

7C 

00 

<C7> 

0210:69 

74 

00 

65 

69 

6E 

65 

6D 

<73> 

0363:80 

80 

00 

00 

00 

08 

08 

70 

<EA> 

00C0:00 

00 

00 

00 

00 

00 

08 

70 

<30 

0218:00 

26 

75 

60 

60 

3D 

33 

63 

<70 

0370:5A 

52 

52 

52 

52 

52 

52 

52 

<D1 > 

00C8:7C 

00 

00 

00 

00 

00 

00 

00 

<S6> 

0223:72 

65 

65 

6E 

0D 

25 

64 

69 

<5Ö> 

0378:52 

52 

52 

52 

52 

52 

52 

52 

<DD> 

00D0:00 

7C 

00 

00 

00 

00 

08 

00 

<EF> 

0228:74 

6F 

72 

30 

30 

08 

00 

7C 

<CC> 

8380:52 

52 

52 

52 

52 

52 

52 

52 

<35> 

00DB:00 

00 

00 

76 

6F 

6E 

00 

00 

<6i> 

0230:70 

00 

00 

22 

21 

33 

29 

23 

<DF> 

0388:52 

52 

52 

52 

52 

52 

36 

65 

<2Q> 

0060= 00 

00 

00 

00 

00 

02 

7C 

00 

<D9> 

0238:0D 

23 

6F 

64 

65 

08 

66 

75 

<24> 

0398:72 

73 

8E 

12 

0E 

10 

52 

43 

<23> 

0023:00 

00 

00 

00 

80 

00 

00 

70 

<64> 

0240:65 

72 

00 

22 

69 

60 

64 

73 

<A6> 

0398=00 

00 

00 

03 

03 

30 

00 

00 

<9E> 

00F0:7C 

00 

00 

00 

00 

00 

08 

08 

<AE> 

0248:63 

68 

69 

72 

6D 

6D 

61 

73 

<5E> 

33A0:00 

00 

00 

08 

03 

08 

00 

00 

<A6> 

B0F6:00 

70 

24 

61 

6E 

69 

65 

60 

<B0> 

0250:6B 

65 

6E 

00 

00 

00 

00 

70 

<20 

03AS:00 

00 

00 

00 

80 

00 

00 

80 

<AE> 

0100:00 

33 

65 

62 

61 

73 

74 

69 

<BO 

0258=70 

00 

00 

67 

65 

6E 

65 

72 

<90 

0380:00 

80 

08 

03 

03 

03 

8@ 

30 

<B6> 

0108:61 

6E 

65 

60 

6C 

69 

70 

00 

<6B> 

0260;69 

65 

72 

65 

6E 

0E 

00 

00 

< 1 A> 

0398:00 

00 

80 

80 

00 

00 

00 

88 

<BE> 

0110:00 

00 

00 

00 

00 

00 

00 

7C 

<8E> 

0263:00 

00 

00 

00 

00 

00 

30 

88 

<60 










0118=70 

00 

00 

00 

00 

00 

00 

00 

<58> 

8270:00 

00 

m 

00 

08 

00 

08 

00 

<74 > 










0120:00 

7C 

00 

00 

00 

00 

08 

00 

<81 > 

0273:00 

00 

00 

80 

83 

00 

80 

70 

<F8> 


cm l 

DihS4 



0128:00 

00 

10 

12 

0F 

18 

17 

00 

<54> 

0280:7C 

00 

00 

00 

00 

00 

08 

03 

<C2> 

Lisiing » 

öUU«. 

Diu© FmT 



0130:00 

00 

00 

00 

00 

00 

7C 

00 

<28> 

0283:00 

00 

00 

80 

00 

00 

00 

80 

<80 

AMPEL eingeben 























Prüfsummer paßt auf 


Unser Prüfsummer für alle Atari-Computer ist 
besonders komfortabel. Mit Hilfe dieses Pro¬ 
gramms lassen sich Listings auf Anhieb korrekt 
und problemlos eingeben. 

M ag der Atari-Prüfsummer auf den ersten Blick 
etwas umfangreich erscheinen, der Aufwand 
lohnt sich. So legt der Prüfsummer zum Beispiel 
eine zusätzliche Statuszeile am oberen Bildschirmrand an. 
Diese Zeile ist von Basic aus nicht zu erreichen, also auch 
nicht zu löschen. Weiterhin können Sie den Prüfsummer 
auch für die Eingabe von Turbo-Basic-XL-Programmen ver¬ 
wenden. Beachten Sie hierzu die besonderen Hinweise! 

ln dem abgedruckten Listing finden Sie gewisse Zeichen 
vor, die der Atari nicht kennt. Es handelt sich dabei einer¬ 
seits um Dreiecke und andererseits um geschweifte Klam¬ 
mern. Die Dreiecke stellen grundsätzlich Leerstellen dar; 
Texte, diezwischen geschweiften Klammern stehen, reprä¬ 
sentieren Atari-spezifische Grafik- und Sonderzeichen. Ein 
Beispiel: »ESC CTL=« entspricht dem ASCII-Zeichen 29. 
Um dieses Zeichen einzugeben, betätigen Sie zunächst 
die < ESC >-Taste und dann gleichzeitig die 
<CONTROL>- und die < = >-Taste. Daraufhin erscheint 
das gewünschte Zeichen auf dem Bildschirm. Eine kom¬ 
plette Aufstellung aller Grafik- und Sonderzeichen finden 
Sie in der Tabelle. Weiterhin gibt es unterstrichene Zeichen, 
die eine inverse Darstellung bedeuten. Bevor Sie ein sol¬ 
ches Zeichen eingeben, müssen Sie unbedingt die Atari- 
Taste betätigen. 

Bild 1 zeigt eine Programmzeile in der üblichen Darstel¬ 
lungsweise und zum Vergleich dazu eine in konvertierter 
Form. 


185« POSITION — ■ I”; 
POSITION 4,S:? "FILENÜME SIZE":POSITI 
OM Z,7 


4B50 POSITION 11,2 = 7 ”tCTL ZI CCTL RICCTL 
RICCTL RJCCTL R> TCTL RI TCTL RTCCTL RTCC 
TL RTCCTL RTCCTL RTCCTL RTCCTL RTCCTL RT 
CCTL RT(SWIFT =T":POSITION 4,S=? "FILCNfi 
ME**^SIZE": POSITION 2.7 


Bild 1. Oben eine Programmzeile, wie sie auf dem Bildschirm 
erscheint. Darunter dieselbe Zeile in der konvertierten Form. 

Geben Sie also zunächst das Prüfsummenprogramm 
von Basic - oder Turbo-Basic XL - aus ein. Zwar werden 
sämtliche DATA-Werte nach dem Start mit RUN überprüft, 
aber »nobody is perfect«. 

Kontrollieren Sie also das Prüfsummenprogramm vor 
dem Start noch einmal. Speichern Sie es dann auf einem 
Datenträger. Jetzt können Sie das Programm beruhigt mit 
RUN starten. Aus den DATA-Werten wird nun ein 
Maschinen-Programm erzeugt. Sollte sich beim Eintippen 
des Programms ein falscher DATA-Wert eingeschlichen 
haben, so wird die entsprechende Zeilennummer auf dem 
Bildschirm angezeigt. 

Nach der Korrektur starten Sie das Programm erneut mit 
RUN. Wurde das Programm fehlerlos eingegeben, stehen 
folgende Funktionen zur Auswahl: 

1. Das Prüfsummen-Programm als Maschinensprache- 
File auf Diskette schreiben. Nach Betätigung der Taste 1 


fragt das Programm nach dem Namen für das Prüfsum¬ 
menprogramm. Tippen Sie also beispielsweise »PRUE- 
FER.OBJ« ein, so wird nach Druck auf die 

< RETURN >-Taste das PrüfsumFnenprogramm auf Dis¬ 
kette gespeichert. Der Computer schließt den Vorgang mit 
der »READY«-Meldung ab. 

Um das Prüfcode-Programm verwenden zu können, 
löschen Sie den Programmspeicher zunächst mit NEW. 
Vom DOS-Menü aus (einfach DOS eintippen und die 

< RETURN > -Taste betätigen) wählen Sie die Option Lund 
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Bild 2. So sollte der Bildschirm nach dem Aktivieren des 
Prüf summers aussehen 


geben den Namen des vorher erzeugten Maschinenpro¬ 
gramms ein. Jetzt wird das Prüfsummenprogramm in den 
RAM-Speicher geladen. Mit <B> gelangen Sie wieder 
zurück ins Basic. 

Aktiviert wird jetzt das Prüfsummenprogramm mit 
»?USR{1536)«. Am oberen Bildschirmrand erhalten Sie 
daraufhin eine zusätzliche Zeile mit dem Schriftzug »Prüf¬ 
code: > < (c) by W. Kress/wb«. Wie die Aufteilung des Bild¬ 
schirms unter Verwendung des Prüfsummenprogramms 
aussieht, zeigt Bild 2. 

2. Das Maschinenprogramm wird als Boot-File auf Kas¬ 
sette geschrieben. Das spätere Laden oder Booten geht fol¬ 
gendermaßen vor sich: 

- bei ausgeschaltetem Computer die <START>-Taste 
drücken und Computer einschalten, 

- nach Ertönen des Summtons die < START >-Taste loslas¬ 
sen, 

- nacheinander die <PLAY>-Taste des Kassettenrecor¬ 
ders und die < RETURN >-Taste betätigen, 

- das Prüfsummenprogramm wird geladen und automa¬ 
tisch gestartet 

3. Programm beenden. Das Maschinenprogramm wird 
nicht gespeichert. 

Das Prüfsummenprogramm wird in der Page 6 abgelegt, 
einem vor NEW geschützten Speicherbereich. Abschalten 
kann man es durch Drücken von < SYSTEM RESET>, ein 
Neustart erfolgt mit dem Aufruf: »?USR(1536)«. 

Sobald das Prüfsummenprogramm aktiviert ist, können 
beim Zugriff auf ein Speichermedium Bildstörungen auftre- 
ten. Um dies zu vermeiden, brauchen Sie nach dem Laden 
oder nach dem Aufruf mit »?USR(1536)« nur »POKE 
39998,30« einzugeben. 

Wurde das Programm von Kassette gebootet, wird es 
jedesmal nach Betätigung der < SYSTEM RESET > -Taste 



































erneut gestartet. Gibt man jedoch vor der Betätigung der 
< SYSTEM RESET> -Taste »POKE 9,0« ein, kann man die¬ 
sen Effekt umgehen. 

Bevor Sie nun ein eingetipptes Basic- oder Turbo-Basic 
XL-Programm mit RUN starten, sollten Sie es sicherheits¬ 
halber noch einmal speichern. Weiterhin sollte das 
Prüfsummen-Programm mit <SYSTEM RESET> desakti- 
viert werden, da auch manche Basic-Prog ramme die Page 
6 für Maschinen-Unterprogramme verwenden. Es könnte 
sonst zu Überschneidungen und zum Systemabsturz kom¬ 
men. 

Der Prüfcode besteht jeweils aus zwei Zeichen. Er setzt 
sich aus den Buchstaben von A bis Z zusammen. Geben 
Sie nun probeweise eine Programmzeile ein und schließen 
Sie mit der < RETURN >-Taste ab. Der zugehörige Prüf¬ 
code erscheint dann in der obersten Zeile. Sollte der Code 
nicht mit dem im abgedruckten Listing übereinstimmen, 
kann die Programmzeile sofort verbessert werden. Die 
jeweilige Programmzeile braucht dazu nicht erneut einge¬ 
geben zu werden, da sämtliche Editierfunktionen des Atari- 
Computers zur Verfügung stehen. 

Ein wichtiger Hinweis: 

Für die erste Programmzeile kann eventuell ein falscher 
Prüfcode errechnet werden. Sollte die Prüfsumme also 
nicht mit der im Listing abgedruckten übereinstimmen, 
fahren Sie mit dem Cursor nochmals auf die erste Zeile. 
Sobald Sie die < RETURN >-Taste betätigt haben, 


erscheint der richtige Code auf dem Bildschirm. Stimmt 
der ausgegebene Wert dann immernoch nicht, überprüfen 
Sie nochmals jedes einzelne Zeichen der von Ihnen einge¬ 
gebenen Programmzeile. 

Bei der Eingabe von Programmen sind die üblichen 
Abkürzungen für Basic-Befehle zulässig. Sie können also 
zum Beispiel G. für GOTO, SE. für SETCOLOR und so wei¬ 
ter verwenden. Eine Ausnahme gilt jedoch bei der Abkür¬ 
zung für den PRINT-Befehl, den man in der Regel mit 
einem Fragezeichen abkürzen kann. Verwenden Sie das 
Fragezeichen bitte nur dann, wenn es auch im Listing 
verwendet wird. 

Möchten Sie nachträglich ein Programm überprüfen, so 
laden Sie zuerst das Prüfsummenprogramm und starten es 
mit »?USR{1536)«. Anschließend laden Sie Ihr Programm 
und listen einen Teil auf dem Bildschirm. Dann bewegen 
Sie den Cursor an irgendeine Stelle einer Programmzeile. 
Mit Betätigung der < RETU RN >-Taste wird der Prüfcode 
in der Statuszeile dargestellt. Stimmt der Prüfcode mit dem 
im beigefügten Listing überein, betätigen Sie wieder die 
<RETURN>-Taste und der Prüfcode der nächsten Zeile 
wird errechnet und angezeigt. Auf diese Art und Weise kön¬ 
nen Sie ein komplettes Programm oder auch nur einzelne 
Zeilen »durchchecken«. 

Sollte der Code nicht mit dem des Listings übereinstim¬ 
men, überprüfen Sie Ihre Programmzeile. Denn bei allen 
abgetippten Listings gilt: Die Programme müssen so abge- 
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19 

m 

CTL S 
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□ 

(Invers) CTL t 
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1 

0 

CTL A 

20 

s 

CTL T 

129 
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(Invers) CTL A 

143 
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(Invers) CTL T 
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CTL B 
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s 

CTL U 
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(Invers) CTL B 

149 
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(Invers) CTL U 
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E 

CTL C 
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o 

CTL V 
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(Invers) CTL C 

150 

9 

(Invers) CTL V 

4 

E 

CTL D 

23 

a 

CTL W 

132 

n 

(Invers) CTL D 

151 

□ 

(Invers) CTL W 

5 

E 

CTL E 

34 

s 

CTL X 

133 
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(Invers) CTL E 

352 

Q 

(Invers) CTL X 
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0 

CTL F 
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CTL Y 
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353 
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(Invers) CTL Y 
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ctlz 
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(Invers) CTL G 

154 
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(Invers) CTL Z 
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CTL H 

27 
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ESC ESC 
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(Invers) CTL H 

156 
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ESC SHIFT DEL 

9 

□ 

CTL I 

23 

ui 

ESC CTL - 
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m 

(Invers) CTL I 

157 

o 

ESC SHIFT > 

10 

IS 

CTL] 

29 


ESC CTL = 

138 
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(Invers) CTL J 

158 

13 

ESC CTL TAB 

11 

□ 

CTL K 

30 

E 

ESC CTL - 

139 

m 

(Invers) CTL K 
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□ 

ESC SHIFT TAB 
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ESC CTL 2 

16 
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CTL P 
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ESC GTL ■ 
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□ 

(Invers) CTL P 
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□ 

ESC CTL DEL 

17 

E 

CTL Q 
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a 

ESC DEL 
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(Invers) CTL Q 

255 

□ 

ESC CTL > 

13 

B 

CTL R 

127 

E 

ESC TAB 

146 


(Invers) CTL R 
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tippt werden, wie sie gedruckt sind. Stimmt die Anzahl der 
Leerzeichen? Haben Sie eventuell Zeichen vertauscht? 
Oder haben Sie ein »?«anstelle eines PRINT-Befehls ein¬ 
gegeben? Haben Sie den Fehler gefunden? Dann weiter¬ 
hin viei Erfolg mit Ihren Atari-Programmen! 


Besondere Hinweise zum 
Prüfsummenprogramm 


Wenn Sie ein Turbo-Basic XL-Programm eingeben 
möchten, müssen Sie das Prüfsummenprogramm mit 
einem Hiifsprogramm starten. Weiterhin empfiehlt es sich, 
eine separate Diskette sozusagen als Eingabediskette zu 
verwenden. Formatieren Sie also eine Diskette. Verwenden 
Sie aber bitte nur DOS 2.0 oder 2.5! Speichern Sie 
anschließend die DOS-Files und Turbo-Basic XL mit dem 
Namen »AUTORUN.SYS« auf dieser Diskette. Dann schal¬ 
ten Sie den Computer aus und booten die soeben ange¬ 
legte Diskette. Geben Sie anschließend folgende Pro¬ 
gram mzeile ein: 

1 BLOAD "D:PRUEFER.OBJ" : POKE $BC3E,SIE:*L-:NEW 

Speichern Sie diese Programmzeile dann mit »SAVE 
"D:AUTORUN.BAS"« auf Ihrer Eingabediskette. Dieses 
kurze Programm sorgt beim Booten des Computers dafür, 
daß das Prüfsummenprogramm automatisch geladen und 
ausgeführt wird. Achtung: Das Prüfsummenprogramm 
läßt sich nicht vom DOS-Menü aus starten! Die oben 
aufgeführte Programmzeile muß unbedingt beim Boot¬ 
vorgang ausgeführt werden. Auf Ihrer Prüfsummer- 
Diskette sollten sich also folgende Files befinden: 

1. DOS.SYS {entweder DOS 2.0 oder 2.5) 

2. DUP.SYS (passend zum DOS.SYS-File) 

3. AUTORUN.SYS (Turbo-Basic XL) 

4. AUTORUN.BAS (das Initialisierungsprogramm) 

5. PRUEFER.OBJ (daseigentliche Prüfsummenprogramm 
als Maschinencode-File) 

Wenn Sie Turbo-Basic unter unserem Happy-DOS ver¬ 
wenden, müssen die einzelnen Files anders auf die Dis¬ 
kette geschrieben werden. Die folgende Liste zeigt wie: 


1. Diskette formatieren mit »FO#« 

2. DOS.SYS auf die Diskette schreiben mit »IN #« 

3. Turbo-Basic mit »COPY AUTORUN.SYS« auf die initia¬ 
lisierte Diskette schreiben 

4. Turbo-Basic mit »REN AUTORUN.SYS TURBO.COM* 
auf der Diskette umbenennen 

5. Mit »JOB TURBO« das Happy-DOS veranlassen, das 
Turbo-Basic automatisch zu laden 

6. »AUTORUN.BAS« wie in der ersten Liste beschrieben 
auf die Diskette schreiben 

7. »PRUEFER.OBJ« auf die Diskette schreiben 

Das Turbo-Basic wird dann automatisch geladen, gestar¬ 
tet und der Prüfsummer installiert. 

Eine ähnlich Prozedur muß angewendet werden, wenn 
andere DOS-Versionen, wie zum Beispiel OSS CP/A 1.2, 
2.1 oder DOS XL, benutzt werden. Anstelle von Punkt 5 
müssen Sie allerdings von Basic aus die Befehisfolge 
»OPEN # 1,8,0," D: STARTU P :EXC ":? #1; 'TURBO ": 
END« eingeben. Dann wird auch in diesen DOS-Versionen 
Ihre Prüfsummer-Diskette automatisch gestartet. 

Basic-Procjramme schnell und 
zuverlässig eingegeben 

Um also unter Turbo-Basic XL den Prüfsummer verwen¬ 
den zu können, brauchen Sie nur Ihre Prüfsummer-Dis¬ 
kette ins Laufwerk einzuschieben und Ihren Computer ein¬ 
zuschalten. Alles wettere erledigt der Computer von selbst. 
Vergessen Sie bitte nicht, sich von der neuen Prüfsummer- 
Verston auch eine Sicherheitskopie anzulegen. Sind noch 
Fragen offen, wenden Sie sich bitte an die Redaktion. 

(Werner Breuer/hf) 


Steckbrief 

Programm: 

Prüfsummer 

Sprache: 

Basic 

Eingabehilfe: 

Prüfsummer 

Datenträger: 

Kassette, Diskette 


100 

REM 



<LU> 

360 

PS UMM=PS UMM+DE Z 


<MV> 

1 Iß 

REM 

* 

* 

<HA> 

370 

NEXT 3 


<BR> 

120 

REM 

* FRUEFCODE fuer ATARI 

* 

<cu> 

3S0 

READ ZSUMM 


<AW> 

130 

REM 

* 

* 

<HE> 

390 

IF PSUMM=ZSUMM THEN 410 


<IN> 

140 

REM 

* von W.Kress 

* 

<zz> 

400 

7 “{ESC CTL 21DATENFEHLER—1": LIST 

Z: 


150 

REM 

* Lindenweg 17 

* 

<XA> 

END 



<YX> 

160 

REM 

* 7590 Achern 

* 

<10> 

410 

GSUMM=GSUMM+PSUMM:Z=Z+10 


<NJ> 

170 

REM 

* (c) by Happy-Computer 

* 

<DC> 

420 

NEXT I 


<FY> 

130 

REM 

* 

* 

<HÜ> 

430 

READ ESUMM 


<SL> 

190 

REM 

********** ***** ** * * *** *** **** 

<MM> 

440 

IF ESUMM^GSUMM THEN 460 


<ZQ> 

200 

REM 



<AJ> 

450 

7 " £ESC CTL 21FEHLENDE-DDER-DOPPELTE 


210 

DIM 

FS(15),SED*(2),DS(504) t C*(ll) 

<RC> 

-DATA“ZEILE“:END 


<IZ> 

220 

c$= 

"{CTL ,1{CTL Dlu7{CTL Al CCTL 

Fl >_< 


460 

7 "{ESC CTL 21“ 


<EX > 

{CTL Ml 

£CTL Bi5" 


<IZ> 

470 

7 “{ESC CTL <>'* 


<RP> 

-230 

GRAPHICS 0-POKE 82,0:POKE 752,1 


<KV> 

480 

POSITION 2,6:7 sPOKE 752,1 


<UG> 

240 

POSITION 12,10:POKE 201,8 


<BÜ> 

490 

7 ,“{CTL Y11CCTL YJ —Auf —DISKETTE—sch 


250 

7 M Bitte*warten*!“sPOKE 752,0 


<DX> 

reiben{ESC CTL {ESC CTL =1" 


< AY> 

260 

z=i mm 


<GZ> 

500 

7 ,“{CTL Y12<CTL Yl-Auf-CASSETTE-sch 


270 

FOR 

1=1 TO 497 STEP 8 


<OL> 

reiben<E5C CTL =1{ESC CTL =>" 


<AGf> 

280 

PSUMM=B 


<MG> 

510 

? ,“<CTL Y13{CTL Yl-ENDE“ 


{ VR> 

290 

FOR 

J=0 TO 7 


<PK> 

520 

OPEN #l,4,0,"K"iGET #1,K:CL0SE #1 


<Nß> 

300 

READ SED* 


<zv> 

530 

K=K-48:IF K<1 GR K>3 TUEN ? "{ESC 

CT 


310 

H=ASC (SED* CD) -48 


<EQ> 

L 21 ,l ; : GOTO 520 


<WU> 

320 

IF H>9 THEN H=H-7 


<LT> 

540 

POSITION 3,4+3*K;7 


<FU> 

330 

L=ASC(SED*(2)>-48 


<6E> 

550 

POSITION 2,20:7 “{ESC SHIFT DEL1 11 ; 


<EW> 

340 

IF L >9 THEN L=L-7 


<SR> 

560 

□N K SOTO 570,590,680 


<DI> 

350 

DEZ- 

=H*16+L:DS(I+J)=CHR* CDEZ) 


<JV> 

570 

POKE 752,0:7 "{ESC TABIDATEINAME—: 
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Di:CESC CTL +J{ESC CTL +XESC CTL +>{ESC 


1250 

DAT A*54,30,72,75,65,66,63,6F,776 

<YW> 

CTL 


<KM> 

1260 

DATA*64,65,00,1A,00,00,IE,00,257 

<ER> 

580 POKE 764,44:INPUT F$:D=1:GQTQ 610 

<21 > 

1270 

DAT A*00,IC,00,00,08,63,09,00,144 

<LV> 

590 F#="C: ,I :D=0 

<MT> 

1280 

DAT A*18,15,00,62,79,00,37,0E,333 

<NU> 

600 7 ,“CASSETTE*FERTIG*MACHEN,*RETURN"; 

<AH> 

1290 

DAT A*00,2B,72,65,73,73,0F,77,622 

<KV> 

610 TRAP 660 

<OJ> 

1300 

DAT A*62,68,A9,FF,8D,30,02,A9,986 

<OK> 

620 OPEN #1,8,128,F$ 

<YW> 

1310 

DATA*FF,8D,31,02,A0,03,B9,00,795 

<ZL> 

630 IF 0 THEN ? #1; DS (1,500); 

<UB> 

1320 

DATA*01,99,FF,FF,88,10,F7,A0,1223 

<DR> 

640 IF NOT D THEN ? #1; CS ; D$ (7 ,494) 

<XK> 

1330 

DATA*FF,A2,05,BD,33,01,99,1A,842 

<□□> 

650 CLOSE #1:GOTO 478 

<EW> 

1340 

DATA*03,CS,E0,03,D0,02,A0,FF,1055 

<QQ> 

660 ? "{ESC CTL 2>{ESC CTL -J{ESC SHJFT 


1350 

DATA*CA,10,F0,60,A5,77,F0,0A,1088 

<OT> 

DEL! {ESC TAB> I /0*-*FEHLER* i ' ; FEEK CI 95) ; 

<CR> 

1360 

DATA*A9,FF,85,26,A9,FF,85,27,1191 

<LF> 

670 TRAP 40000:CLOSE #l:BOTO 490 

<HQ> 

1370 

DATA*C6,77,A5,73,F0,2D,A5,A1,1208 

<VB> 

680 POKE 752,0:END 

<YW> 

1380 

DATA*10,04,C6,73,F0,25,A6,78,896 

<N8> 

690 REM---- 

<ZP> 

1390 

DAT A*BD,14,01,E6,78,C9,9B,D0,1124 

<ZM> 

1000 

DATA*FF,FF,00,38,E7,39,A2,FF,1271 

<£A> 

1400 

DATA*4F,A2,00,86,78,86,73,A6,910 

<WM> 

1010 

DATA*BD,EB,38,9O,00,06,CA,E0,I069 

<NF> 

1410 

DAT A*A0,86,71,A6,AI,86 T 72,A2,1144 

<QR> 

1028 

DATA*FF,D0, F5 , A2,60, BD ,8A ,38 f 1349 

<VW> 

1420 

DATA*9E,86,26,A2,06,86,27,E6,901 

<AY> 

1030 

DAT A*.9D , 00,01, CA , 10, F7, A2,0F , 800 

<OL> 

1430 

DAT A*77,DH,35,20,3E,F6,08,C9,929 

<CH> 

1040 

DATA*BD,00,E4,90,61,01,CA,10,890 

<LI > 

1440 

DAT A*9B,D0,02,E6,73,28,60,A2,1008 

<I0> 

1050 

DATA*F7,18,AD,65,01,69,01,8D,793 

<MP> 

1450 

DATA*00,C9,9B,F0,26,86,CC,A6,1138 

<LN> 

1060 

DATA*6B,06,AD,66,01,69,00,8D,635 

<CE> 

1460 

D AT A *00,861D1,85,CD,A0,08,46,919 

<QZ> 

1070 

DAT A*6C ,06,A9,2A,SD,65,01,A9,737 

<XW> 

1470 

DAT A*D1,90,0C,18,A2,03,B5,CD,940 

<DL> 

1080 

DATA*06,80,66,01,AD,67,01,8D,668 

<VG> 

1480 

DATA* 75,CA,95,CD,CA,D0,F7,06,1336 

<ZZ> 

1090 

DATA*30,06 , AD , 68,01 , SD , 34,06 ,531 

<HH> 

1490 

DATA *CD,26,CC,88,D0,E9,E6,00,1254 

<EW> 

1100 

DATA*38,AD,30,02,E9,02,BD,02,657 

<ZR> 

1500 

DATA* A0,01,60,A9,A4,A0,02,20,784 

<NA> 

1110 

DAT A*06,SD,11,06,AD,31,02,E9,627 

<EV> 

1510 

DATA*CC,06,A2,03,65,CA,95,CD,1112 

<MP> 

1120 

DATA*00,SD,07,06,SD,12,06,A9,488 

<DM> 

1520 

DATA*CA,D0,F9,A9,1A,20,CC,06,1096 

<IN> 

1130 

DATA*45,20,7A,38,90,11,8E,26,620 

<CP> 

1530 

DATA*A5,CD,18,69,21,80,48,01,746 

<BX> 

1140 

DAT A*06,A9,00,20,7A,38,90,07,536 

< YQ> 

1540 

DATA*A5,00,69,21,80,47,01,84,856 

<UQ> 

1150 

DAT A*.8E ,17,06,20,01,06,18,60,330 

<GZ> 

1550 

DAT A*D0 , CS , 84,00,60,85,7284,1015 

<LY> 

1160 

DATA*A2,00,DD,1A,03,F0,08,E8,892 

<CH> 

1560 

DATA*71,86,CB,86,CC,86,CD,A0,1287 

<JS> 

1170 

DATA*EB,ES,E0,21,D0,F4,18,60,1293 

<CK> 

1570 

DAT A*18,18,A2,05,36,CB,CA,10,690 

<RJ> 

1180 

DAT A*70,42,39,01,9E,06,9E,06,564 

<LU> 

1580 

DATA*FB,38,A2,03,B5,CA,F5,6F,1211 

<RY> 

1190 

DATA*9E,06,75,06,9E,06,9E,06,615 

<EX > 

1590 

DATA*95,73,CA,DB,F7,90,0B,B5,1257 

<GI> 

1200 

DATA*00,00,00,00,4C,2E,22,54,240 

<CY> 

1600 

DATA*74,95,CB,ES,ES,03,DB,F7,1382 

<II> 

1210 

DATA*3A,22,2C,50,45,45,4B,28,469 

<TN> 

1610 

DATA*E6,D0,88,DB,DC,60,E2,02,1326 

<JV> 

1220 

DATA*3i,31,33,29,28,32,35,36,390 

<LL> 

1620 

DATA*E3,02,00,38,00,00,00,00,285 

<BR> 

1230 

DATA*2A,50,45,45,40,23,31,31,473 

<SG> 

1630 

D AT A *53423 

<NQ> 

1240 

DAT A*34,29,98,01,61,45,01,04,420 

<sw> 

Listing zum AtarFPrufsummer (Schluß) 



Ampel-Version 1.1 


Sie möchten unser neuestes Listing abtippen? 
Mit AMPEL wird das Eingeben von reinen Atari- 
Maschinenprogrammen zum Kinderspiel. 

S peziell bei Maschinenprogrammen kommt es darauf 
an, daß jedes Byte korrekt eingegeben wird. Schon 
ein einziger falscher Wert führt meist dazu, daß das 
eingegebene Programm nicht läuft. Dies hat dann oft eine 
stundenlange Fehlersuche zur Folge. Deshalb haben wir 
für Sie »AMPEL« (Atari-Maschinen-Programm-Eingabe- 
Listing) entwickeln lassen. Und damit das Eintippen für Sie 
möglichst einfach und reibungslos verläuft, wählen wir eine 
spezielle Darstellungsform für Maschinenprogramme. 
Beachten Sie bitte, daß Sie zukünftig unbedingt AMPEL- 
Version 1.1 verwenden müssen, um Atari-Maschinenpro¬ 
gramme einzugeben. Von Basic aus lassen sich solche 
Listings nicht eingeben. Verwahren Sie also das Programm 
zu AMPEL sorgfältig und legen Sie eine zusätzliche Kopie 
an einen sicheren Platz. 

Geben Sie zunächst das nachfolgende Listing ein. Ver¬ 
wenden Sie dazu den Atari-Prüfsummer. Bevor Sie AMPEL 
mit RUN starten, sollten Sie das eingegebene Basic- 
Programm auf Diskette oder Kassette speichern. Hat sich 
nämlich ein Fehler im Maschinensprache-Teil eingeschli¬ 
chen, kann Ihr Computer abstürzen. In dem Fall müßte 
AMPEL erneut eingegeben werden. 


Nachdem Sie das Programm mit RUN gestartet haben, 
werden zuerst die DATA-Werke eingePOKEt. Dieser Vor¬ 
gang nimmt einige Sekunden in Anspruch. Danach müs¬ 
sen Sie die Länge des einzugebenden Maschinenpro¬ 
gramms eingeben. Diesen Wert entnehmen Sie bitte am 
Ende des abgedruckten Maschinenprogramms. Anschlie¬ 
ßend geben Sie den Programmnamen an, unter dem Ihr 
Programm gespeichert wird. Auf dem Bildschirm erscheint 
jetzt »0000:«, die Aufforderung, mit der Eingabe der ersten 
Zeile des AMPEL-Listings zu beginnen. 

Betrachten wir eine AMPEL-Listing-Zeile aus der Nähe: 

0000:00 02 00 07 06 07 20 BD <F3> 

Die ersten vier Zahlen (hier 0000) stellen sozusagen die 
Zeilennummer dar. Diese Zahlen sowie den darauffolgen¬ 
den Doppelpunkt brauchen Sie nicht einzugeben. Danach 
folgen acht zweistellige Hexadezimalzahlen, die Sie dem 
Listing entnehmen. Die Eingabe erfolgt ohne Betätigung 
der < RETURN >-Taste. Der Cursor springt selbständig 
von einer Position zur nächsten. Leerzeichen sowie die bei¬ 
den Zeichen »<« und »> «fügt AMPEL automatisch ein. Ist 
die Prüfsumme korrekt - sie muß auch von Ihnen eingege¬ 
ben werden - springt der Cursor in die nächste Zeile. Falls 
nicht, ertönt ein akustisches Signal und alle acht Werte, 
inklusive der Prüfsumme, müssen nochmals eingegeben 
werden. Dadurch wir gewährleistet, daß wirklich alle einge¬ 
gebenen Hexadezimalzahlen im Listing stimmen und sich 
keine unbemerkten Fehler einschleichen können. 



















Außer den Hex-Tasten {<0> bis <9> und <A> bis 
<F>), wird nur noch <DELETE BACKSPACE> zum Kor¬ 
rigieren des letzten Zeichens und < CONTROL S > abge¬ 
fragt. 


Zwischenspeichern 


Da Sie ein umfangreiches Maschinenprogramm sicher 
nicht an einem Tag eintippen möchten, können Sie zu 
jedem Zeitpunkt mit < CONTROL S> Zwischenspeichern. 
Dazu betätigen Sie einfach <CONTROLS> und der Code 
wird unter dem zuvor eingegebenen Programmnamen 
gespeichert. Weiterhin wird automatisch die jeweils zuletzt 
gespeicherte Version in »BACKUP.OBJ« umbenannt. Zuvor 
wird natürlich eine ältere »BACKUP.OBJ«-Datei gelöscht. 
Danach können Sie den Computer ausschaiten oder 
AMPEL mit <RESET> verlassen. 

Wenn Sie das nächstemal AMPEL starten, muß wieder 
die Programmlänge und der entsprechende Name, mit 
dem Sie Ihre letzte Version gespeichert haben, eingegeben 
werden. Existiert bereits eine Datei mit dem entsprechen¬ 
den Namen, wird die Datei automatisch geladen. Weiterhin 
wird noch die Zeilennummer auf dem Bildschirm ange¬ 
zeigt, ab der Sie mit der Eingabe der Hex-Werte fortfahren 
müssen. 

Speichern Sie lieber öfter mit <CONTROL+S>, um 
auch gegen eventuelle Stromausfälle gewappnet zu sein. 
Weiterhin empfiehlt es sich aus Sicherheitsgründen, zwei 
Disketten für Daten vorzusehen. Wenn Sie das komplette 
Programm eingegeben haben, speichert der Computer 
nach Eingabe des letzten Bytes das Programm auf Diskette 
und meldet sich danach mit der READY-Meidung. 

Wenn Sie Ihr Maschinenprogramm anschließend laden 
möchten, erfolgt dies vom DOS-Menü aus. Wählen Sie hier 
die L-Funktion und geben Sie anschließend den entspre¬ 
chenden Programmnamen ein. 


Besondere Hinweise für 
Kassettenrecorder-Besitzer 


Damit AMPEL auch einwandfrei mit einem Kassettenre¬ 
corder funktioniert, müssen folgende Programmzeilen 
geändert werden: 

290 F$="C: " :AD=0 

300 ? " Altes File laden J/N " ; 

310 INPUT FR$ 

320 IF FR$<>"J" THEN 510 
420 TRAP 510:OPEN #1,4,128, F$ 

590 TRAP 660:CL0SE#1:OPEN #1,8,128,F$ 

Die Zeilen 330 bis 360 entfallen, ebenso die Zeilen 450, 
600 und 610. 

Speichern Sie anschließend die geänderte AMPEL- 
Version mit CSAVE. Somit haben Sie das benötigte Einga¬ 
beprogramm bereits vorliegen. 


Sicherheit über alles 


Wenn Sie zu einem späteren Zeitpunkt mit der Arbeit fort¬ 
fahren möchten, laden Sie wieder zuerst AMPEL, starten 
es mit RUN, geben die Programmlänge ein und beantwor¬ 
ten die Frage »Altes File laden J/N« mit J. Daraufhin meldet 
sich der Computer wieder mit einem Brummton. Spulen 
Sie das Band an den Anfang zurück, betätigen Sie dann 
noch die < PLAY >-Taste und < RETURN >. Jetzt wird der 
zuletzt eingegebene Programmteil geladen. Anschließend 
meldet sich der Atari-Computer wieder mit der Zeilennum¬ 
mer, ab der Sie mit der Eingabe fortfahren müssen. 
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So sieht der Bildschirm bei der Eingabe von Maschinenpro¬ 
grammen aus. Zwischenspeichern kann man jederzeit mit 
der Tasten kombination < CONTROL+S >. 


Um später das eingegebene Programm zu starten, muß 
stets zuerst das »Kassetten-Hilfsprogramm« geladen wer¬ 
den. Nach dem Ladevorgang meldet sich der Computer mit 
dem Brummton. Anschließend legen Sie bitte Ihre Kassette 
mit Ihrem Maschinenprogramm in den Recorder ein, 
drücken die < PLAY>-Taste des Recorders und während 
Sie die < START >- und < OPTION >-Tasten des Compu¬ 
ters drücken, schalten Sie die Stromversorgung ein. Nach 
dem Brummton nur noch < RETURN > drücken und ihr 
Programm wird geladen und anschließend automatisch 
gestartet. 


Programme schnell geladen 


Speziell bei Kassettenrecordern kann es Probleme beim 
Laden von Maschinenprogrammen geben. Deshalb sollten 
Sie stets mehrere Sicherheitskopien von Ihren Program¬ 
men machen. Hinzu kommt, daß das Laden von Kassette 
sehr viel Zeit beanspruchen kann, da die Übertrag ungsge- 
schwindigkeit sehr langsam ist. Besitzer einer Disketten¬ 
station haben es hier viel besser. Sollten Sie mit AMPELauf 
Schwierigkeiten stoßen, wenden Sie sich an die Redaktion. 

(Frank Ostrowski/Werner Breuer/hf) 


Mit < CONTROL S> kann zu jedem Zeitpunkt gespei¬ 
chert werden. Daraufhin erklingt ein doppelter Signalton. 
Betätigen Sie dann noch die <RECORD>- und 

< PLAY>-Tasten des Recorders und anschließend die 

< RETURN >-Taste. Der Speichervorgang beginnt. Wenn 
Sie dann mit einem anderen Programm arbeiten möchten, 
gelangen Sie mit < RESET> zurück ins Basic. 


Steckbrief 

Programm: 

AMPEL 

Sprache: 

Basic 

Eingabehilfe: 

Prüfsummer 

Datenträger: 

Kassette, Diskette 
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100 7 , " *************^**##**** u 

<HI> 

1300 

DAT Ai.173,37,228,72,173,36 

<YX> 

110 ? 

<X0> 

1310 

DATA*22S,72,96,72,74,74 

<HJ> 

115 7 , '■*■** Cc) *Happ/-Computer**" 

<JT> 

1320 

DATA*74,74,32,20,6,104 

<ZA> 

117? , V***A***Versi on* i. 1 **** 11 

<0£> 

1330 

DATA*41,15,9,48,201,58 

<J0> 

120 ? , 11 ” 

<HH> 

1340 

DATA*144,2,105,6,168,173 

<0H> 

130 ? 

<JÜ> 

1350 

DATA *71,3,72,173,70,3 

<DU> 

140 ? T “CTRL*S*=^Sichern" 

<ZY> 

1360 

DATA*72,152,96,50,31,30 

<CG> 

150 ? 

<0Y> 

1370 

DATA*26,24,29,27,51,53 

<1L> 

160 ? 11 Ei nen*Mo<nent*Gedul ti*bi tte- 

<CL> 

1380 

DAT A*48,63,21,18,58,42 

<KV> 

190 POKE 16,64:POKE 53774,64 

<00 > 

1390 

DATA*56,190,52 

<PY> 

230 DIM FS(15),FBi (15) ,FR$ C27> 

<HK> 

1430 

DATA*169,0,133,213,104,201 

<HX> 

240 DIM MLSC2Ö1),CIO$CS3> 

<HH> 

1440 

DATA*2,240,16,170,240,5 

<YR> 

250 GOSUB 1000 

«3T> 

1450 

DATA*104,104,202,208,251,169 

<RJ> 

260 ? EHR*CI56) 

<DG> 

1460 

DATA*3,44,169,1,133,212 

<BU> 

270 ? "Programmlaenge* 11 ?: INPUT L 

<£H> 

1470 

DATA*96,104,133,215,104,133 

<YK> 

280 DIM A*(L+a) 

<SU> 

1480 

DATA*214,104,133,217,104,133 

<G0> 

290 ? "Programmname*";:INPUT F* 

<IR> 

1490 

DATA*216,24,101,214,133,214 

<UF> 

300 IF F*=" 11 THEN 290 

<HA> 

1500 

DAT A*165,217,101,215,133,215 

<IU> 

310 F=0:FOR 1=1 TO LENCFS):F=F+(Fi(I,I)= 


1510 

DATA*169,155,32,28,6,165 

<SR> 

"s‘')!NeXT I 

<IR> 

1520 

DATA*217,32,9,6,165,216 

<LG> 

320 IF F=0 THEN FR$="D:":FRi(3)=Fi:Fi=FR 


1530 

DATA*7931 

<MS> 

S 

<UE> 

1540 

DATA*32,9,6,169,58,32 

<ox> 

330 ? "Filename*";Fi 

<TA> 

1550 

DATA*2S,6,169,0,133,218 

<J0> 

340 FB$= "Os BACKUP - OBJ 11 

<NH> 

1560 

DAT A*173,252,2,41,191,162 

<HS> 

350 FRi-Fi:FR$(LEN(FRi)+1)="," 

<XT> 

1570 

DATA*17,221,39,6,240,5 

<DP> 

360 FRi(L£N(FRi>+l)=FBi<3) 

<I0> 

1580 

DATA*202,16,248,48,239,134 

<GQ> 

420 AD=0sTRAP 510:OPEN *1,4,0,FS 

<QH> 

1590 

DATA*219,141,252,2,32,0 

<ÜU> 

430 E=USR(ADR(CIÜ£),1,7,ADR <Ai>,L> 

<ZH> 

1600 

DAT A*6,41,127,32,20,6 

<GB> 

440 IF E=1 THEN ? ,, Schon*fertig"sEND 

<IH> 

1610 

DATA*165,219,201,16,240,168 

<2B> 

450 IF E<>136 THEN ? "Disk-Read-Errar* 11 ; 


1620 

DATA*144,40,165,218,240,205 

<CF> 

E: END 

<QL> 

1630 

DATA*74,176,5,169,126,32 

<RS> 

460 AD=PEEK(856 >+256*PEEK(857) 

<QT> 

1640 

DAT A*6S35 

<PH> 

470 AD=8*INTCAD/8):TRAP 65535 


1650 

DATA*2S,6,160,4,70,220 

<YY> 

510 CD=USR C ADR C HL* >,ADR(A*),AD) 

Of«> 

1660 

DAT A*102,221,102,222,102,223 

<VE> 

520 QN CD GOSUB 590,690,710 

<PH> 

1670 

DATA*102,224,102,225,102,226 

<DY> 

530 AD=AD+B*(CD=0> 

<SK> 

1680 

DA TA*102,227,102,228,136,208 

<QR> 

540 IF AD<=L THEN 510 

<HK> 

1690 

DATA*235,198,218,184,80,178 

<BA> 

550 AD=LiGOSUB 590 

<HI> 

1700 

DATA*10,10,10,10,160,4 

<L0> 

560 POKE 16,192 : POKE 53774 1 192:END 

<XR> 

1710 

DATA*10,38,228,38,227,38 

<UU> 

590 TRAP 600:CLOSE #laXIO 33,#1,0,0,FBi 

<no> 

1720 

DATA*226,38,225,38,224,38 

<YP> 

600 TRAP 610:CLOSE #l:XIO 32,#1,0,0,FRi 

<IF> 

1730 

DATA*223,38,222,38,221,38 

<RU> 

610 TRAP 660:CLOSE ttlrOPEN #1,6,0,FS 

<tw> 

1740 

DATA*220,136,208,234,230,218 

<0G> 

620 E=USR(ADR(ClOi),1,11,ADR <AS),AD> 

<LC> 

1750 

DATA*8135 

<LZ> 

630 CLOSE #1 

<LI> 

1760 

DATA*!65,218,201,18,240,19 

<H0> 

640 IF EOl THEN ? "Disk-Error*";E 

<ZH> 

1770 

DATA*201,16,208,4,169,60 

<HK> 

650 TRAP 65535--RETURN 

<FB> 

1780 

D ATA*208,5,74,176,206,169 

<E6> 

660 CLOSE #1 

<L0> 

1790 

DATA*32,32,28,6,184,80 

<JZ> 

670 7 "Disk^Error*"j PEEK CI95):RETURN 

<XX> 

1800 

DATA*198,165,217,10,101,216 

<ZP> 

690 ? CHRi (253) : ? "Pruef summen-f ehl er " 

<PO> 

1810 

DATA*10,101,220,10,101,221 

<UQ> 

700 RETURN 

<HR> 

1820 

DATA*10,101,222,10,101,223 

< YP > 

710 ? "Fehler* ! ! ! *';:LIST 510: END 

<CH> 

1830 

DATA*10,101,224,10,101,225 

<C0> 

1000 G~0 

<H0> 

1840 

DATA*10,101,226,10,101,227 

<6R> 

1010 FOft 1=1536 TO 1592 

<HU> 

1850 

DATA*197,228,20Q,18,169,62 

<RJ> 

1020 READ A:Q=Q+A* POKE I,A 

<KX> 

1860 

DATA*7184 

<NS> 

1030 NEXT I 

<EY> 

1870 

DATA*32,28,6,160,7,185 

<LL> 

1040 IF £304196 THEN 7 11 Dat**Error " t LIST 


1880 

DATA*220,0,145,214,136,16 

<KJ> 

1300,13901 END 

<JV> 

1890 

DATA*24S,169,0,44,169,2 

<MU> 

1050 Q=0 

<XÜ> 

1900 

DAT A*133,212,96 

<CA> 

1060 FOR 1=1 TD 261 

<RZ> 

1910 

DAT A*2222 

<HH> 

1070 READ A 

<0I> 

1950 

DAT A*104,201,4,208,66,104 

<KE> 

1080 IF A>255 THEN GOSUB 1190 

<EL> 

1960 

D ATA*104,170,104,104,133,212 

<AX> 

1090 MLS ( I > «CHRi C‘A) i Q=Q+A 

<tW> 

1970 

DATA*104,133,214,104,133,213 

<DH> 

1100 NEXT I 

<ER> 

1980 

DATA*104,133,216,104,133,215 

<H0> 

1110 READ A: IF QOft THEN 1200 

<FZ> 

1990 

DATA*160,134,138,201,8,176 

<AX> 

1120 0=0 


2000 

DA TA*33,10,10,10,10,170 

<LS> 

1130 FOR 1=1 TO 83 

<JT> 

2010 

DATA*165,212,157,66,3,165 

<VR> 

1140 READ AsQ=Q+A:CIOi(I>=CHRi(A) 

<0L> 

2020 

DATA*213,157,68,3,165,214 

<TO> 

1150 NEXT I 

<FG> 

2030 

DATA*!57,69,3,165,215,157 

<AZ» 

1160 IF 0010894 THEN 7 "Data*Error*";:L 


2040 

DATA*72,3,165,216,157,73 

<SE> 

IST 1950,2080:END 

<HP> 

2050 

DATA*3,32,86,228,132,212 

<HM> 

1170 RETURN 

<PQ> 

2060 

DATA*169,0,133,213,96,160 

<QU> 

1190 IF Q=A THEN READ A:Q=0:RETURN 

<VA> 

2070 

DATA*10,170,240,244,104,104 

<SB> 

1200 7 "Data^Error“ 

<G0> 

2080 

DATA*202,208,251,240,237 

<JQ> 

1210 IF A=7931 THEN LIST 1430,1530 

<1U> 




1220 IF A=658S THEN LIST 1540,1640 

<PX> 




1230 IF A=8135 THEN LIST 1650,1750 

<RD> 




1240 IF A=71S4 THEN LIST 1760,1860 

<XK> 

Eingabehilfe »AMPEL« für Programme in Maschinenspra¬ 

1250 IF A=2222 THEN LIST 1870,1910 

<QU> 

che. Bitte mit dem Prüfsummer von Seite 60 eingeben. 
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Auf die Kassette, 
fertig, los! 


Benutzer eines Kassettenrecorders dürfen end¬ 
lich aufatmen. Auch sie können nun die Vorteile 
des »Turbo-Basic« voll nutzen. 

A ite (Atari-)Welt spricht vom Turbo-Basic und erfreut 
sich der immensen Vorteile und erweiterten Fähig¬ 
keiten gegenüber dem »Atari-Basic« - voraus¬ 
gesetzt, man verfügt über ein Diskettenlaufwerk. Wer indes 
nur einen Kassettenrecorder sein eigen nennt, stand bis¬ 
lang im Regen. Die Ladeprozedur des Turbo-Basic war 
nämlich ausschließlich auf Disketten betrieb ausgelegt. 
Diesem Mißstand macht das Programm »Turbo-Load« jetzt 
ein Ende. Sollten Sie der Vorzüge des Turbo-Basic noch 
nicht gewahr sein, hier ein paar Appetitanreger: 

Der Turbo-Basic-Interpreter 
- ist voll kompatibel zum Atari-Basic 
- machtauch Atari-Basic-Programme wesentlich schneller 
- erweitert den Befehlssatz um so wichtige Elemente wie 
neue Schleifenformen (DO-UNTIL, WHILE-WEND etc.) 
und Grafik-Kommandos (beispielsweise zum Zeichnen 
von Kreisen und Rechtecken sowie zum Füllen beliebiger 
Flächen). 

Eine vollständige Aufstellung des Befehlsvorrats und der 
Handhabung des Interpreters entnehmen Sie bitte dem 
Beitrag »Basic, schnell wie der Wind« ab Seite 68 dieser 
Ausgabe. 

Geben Sie zunächst das Turbo-Load-Listing mit AMPEL 
ein und speichern Sie es. Auf dergleichen Kassette, genau 


hinter Turbo-Load, speichern Sie dann das ebenfalls einge¬ 
gebene Turbo-Basic. Zum Schutz vor unwiederbringlichen 
Datenverlusten fertigen Sie mindestens eine Arbeitskopie 
von dieser Turbo-Basic-Kassette. Zum Einsatz des Turbo- 
Basic spulen Sie nun die Kassette auf den Anfang von 
Turbo-Load und schalten den Computer ein, während Sie 
gleichzeitig die Tasten < OPTION > und < START > 
gedrückt halten. Hören Sie den Summton, lassen Sie die 
Tasten wieder los und starten den Recorder. Nach einer 
kurzen Ladezeit fordert Turbo-Load Sie auf, die Kassette an 
den Beginn der Turbo-Basic-Datei zu spulen, die Taste 

< PLAY> des Recorders und abschließend < RETURN > 
auf der Computer-Tastatur zu drücken. Eine knappe Vier¬ 
telstunde später meldet sich Turbo-Basic zur Stelle. 

Der Interpreter ist fest im Computer installiert, auch die 

< RESET >-Taste bringt ihn nicht aus der Ruhe. Geben Sie 

den Befehl »? FRE(O)« ein. Wenn der Computer die Zahl 
»34018« ausgibt, ist alles in Ordnung. (ja) 


Steckbrief 

Programm: 

Turbo-Load 

Sprache: 

Maschi nensprache 

Eingabehilfe: 

AMPEL 

Datenträger: 

Kassette 
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Wenn die Kassette 
mit der Diskette 


Mit dem hier vorgestellten Programm lassen sich 
alle für Diskette gedachten Maschinenpro¬ 
gramme von Kassette laden und starten. 

F ür uns ist das schon ein Problem, die Sache mit den 
Programmen auf Diskette. Fast ausnahmslos alle 
Programme, die wir im Heft abdrucken, bekommen 
wir auf Diskette zugesandt. Das allein wäre nicht weiter 
schlimm. Nur, meistens sind die Programme so ausgelegt, 
daß sie nur mit der Diskettenstation Zusammenarbeiten. 
Ganz schlimm wird es, wenn wir Maschinenprogramme 
erhalten. Es ist fast unmöglich, die Programme so umzu¬ 
schreiben, daß sie sowohl mit Kassette als auch mit Dis¬ 
kettefunktionieren. Außerdem müßten wir dann immer zwei 
Versionen abdrucken, einmal für Kassetten- und einmal für 
Diskettenbetrieb. Da wir den Platz im Heft lieber mit ande¬ 
ren Programmen oder Beiträgen füllen wollen, haben wir 
uns eine elegante Lösung einfallen lassen, die Nachteile 
weder für den Kassetten-noch für den Diskettenbetrieb mit 
sich bringt. 

Tippen Sie das Programm mit AMPEL ab und speichern 
Sie es auf Ihrer Kassette. Unser »COS«, »Cassetten Opera- 
tions System«, wird geladen, indem Sie den Computer aus¬ 
schalten, die <START>-Taste drücken, je nachdem, ob 
Sie Basic benötigen oder nicht, die < OPTION >-Taste 
betätigen und den Computer dann einschalten. Er meldet 
sich mit einem Hupton. Spulen Sie jetzt die Kassette auf 
den Anfang von COS, schalten den Recorder auf »PLAY« 
und drücken eine Taste am Computer. COS wird nun gela¬ 
den . Das Programm beansprucht acht Blöcke auf der Kas¬ 
sette und ist somit schnell im Speicher. COS meldet sich 
mit einem Menü. 


Drei Funktionen hat COS. Die wichtigste ist die Funktion 
< L>, mit der ein Fiie von der Kassette geladen und gestar¬ 
tet wird. Drücken Sie diese Taste, fordert der Computer Sie 
mit einem Hupton auf, die Kassette auf den Anfang des zu 
ladenden Files zu spulen, ihn wieder auf »PLAY« zu schal¬ 
ten und eine Taste zu betätigen. »Turbo-Basic« läßt sich mit 
COS leider nicht laden, daTurbo-Basic eine spezielle Lade¬ 
routine für den Diskettenbetrieb eingebaut hat, die mit Kas¬ 
sette nicht funktioniert. 

Mit der zweiten Funktion <C> wie »Cartridge« wird zu 
einem eingesteckten Modul gesprungen beziehungsweise 
das Basic gestartet. Verwenden Sie diese Funktion nicht, 
wenn Sie Basic nicht eingeschaltet haben. Der Computer 
hängt sich sonst auf, und Sie müssen ihn mit < RESET> 
wieder ins Diesseits der Bits und Bytes zurückrufen. Diese 
Funktion wird auch zusammen mit dem Prüfsummer ver¬ 
wendet. Nachdem Sie den Prüfsummer von Kassette gela¬ 
den haben, müssen Sie irgendwie ins Basic kommen, um 
den Prüfsummer benutzen zu können. Dies geschieht mit 
der Funktion <C>. 

Als letztes steht die Funktion < S > zur Verfügung, mit 
der ein geladenes Programm nochmals gestartet wird. 
Nützlich ist dies bei verschiedenen kleinen Demonstra¬ 
tionsprogrammen, die nach getaner Arbeit wieder ins COS 
zurückkehren. (hf) 
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<11> 

0030=18 

60 

00 

00 

00 

00 

00 

00 

<14> 

0150:07 

00 

03 

EE 

35 

07 

A2 

10 

<22 > 

0270:6F 

70 

79 

72 

69 

67 

68 

74 

<03> 

0033:00 

00 

00 

00 

00 

A9 

21 

8D 

<AE> 

015S:A9 

07 

9D 

42 

03 

AD 

32 

07 

<62> 

0278:20 

28 

63 

29 

20 

31 

39 

38 

<65> 

0040:£7 

02 

A9 

0A 

80 

ES 

02 

60 

<59 > 

0160:90 

44 

03 

AO 

33 

07 

90 

45 

<F2> 

0280;37 

20 

62 

79 

20 

48 

65 

6E 

<66> 

0043:A9 

01 

65 

09 

A2 

00 

A9 

03 

<67> 

0168:03 

A0 

34 

07 

38 

ED 

32 

07 

<E£> 

0283:72 

69 

6B 

20 

46 

69 

73 

63 

<A7> 

0050:CD 

42 

03 

3D 

Fß 

02 

A9 

48 

<79> 

0170:9D 

48 

03 

AD 

35 

07 

ED 

33 

<E0> 

0290:6S 

9B 

98 

5E 

4C 

5D 

20 

46 
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44 

03 

A9 

09 

SO 

45 
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<B2> 

0178:07 

90 
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20 
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E4 

30 
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76 

6F 

6E 
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BD 

48 
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A9 

00 

8D 
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0180:40 

20 

87 

08 

4C 

CC 

07 

6C 

<2.7 > 

02A0:43 

61 

73 

73 

65 

74 

74 

65 

<5A> 

0068:49 

03 

20 

56 

E4 

20 

0A 

09 

<73 > 

0188:E® 

02 

AD 

E2 

02 

SD 

33 

07 

<F0> 

02A3:20 

6C 

61 

64 

65 

6E 

9B 

5B 

<5F> 

0070:AD 

3A 

07 

C9 

4C 

F0 

1F 

C9 

<EC> 

0190:AD 

E3 

02 

so 

39 

07 

2© 

B6 

< 17> 

02B0:53 

5D 

20 

47 

65 

6C 

61 

64 

<29> 

0078:53 

00 

03 

4C 

96 

08 

C9 

43 

<64 > 

0198:0B 

20 

E0 

03 

A9 

47 

CD 

E2 

< 1B> 

02BO:65 

6E 

65 

6E 

20 

46 

69 

6C 

<B3> 

0080:D0 

EB 

A2 

00 

8E 

F0 

02. 

BA 
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01A0:02 

00 

0A 

A9 

07 

CD 

E3 

02 

<96> 
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20 

73 

74 

61 

72 

74 

65 
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0038:8D 

48 

03 

ÖD 

49 

03 

A9 

7D 
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03 

20 

B3 

08 

4C 

48 

07 

<S9> 

02C8:6E 

9B 

5B 

43 

50 

20 

47 

65 

<67> 

0090:20 

56 

E4 

6C 

FE 

BF 

A9 

47 

< FE > 

01B0:6C 

38 

07 

6C 

36 

07 

A2 

10 

<B9> 

0200;6B 

65 

20 

7A 

75 

72 

20 

43 

<7E> 

0098:8D 

33 

07 

3D 

36 

07 

A9 

07 

<35> 

01B8;A9 

0C 

90 

42 

03 

20 

56 

E4 

<F3> 
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72 

74 

72 

69 

64 

67 

65 
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07 

80 

37 

07 

A9 

00 
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20 

Bö 
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A2 

00 

A? 

m 

<A3> 

02E0:9B 

9B 

9B 
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65 

6B 

6C 

65 
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07 
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3C 

07 

A2 

10 
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42 

03 

A9 

El 

SD 

44 

03 

<5F> 
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20 

62 

65 

69 

60 

20 

4C 

<C9> 
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03 

9D 

42 

03 

A9 

1F 

9D 

<33> 

0100:A9 

09 

SD 

45 

03 

A9 

21 

SB 

<F9> 

02F0:61 

64 

65 

6£ 

20 

76 

6F 

6E 

<C5> 

00BB:44 

03 

A9 

0A 

90 

45 

03 

A9 

<02> 

01D3s48 

03 

A9 

00 

80 

49 

03 

20 

<S4> 

02F8:20 

4B 

61 

73 

73 

65 

74 

74 

<1E> 

00C0:04 

9D 

4A 

03 

A9 

30 

90 

48 

<6F> 

01E0:56 

E4 

20 

0A 

09 

4C 

48 

07 
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9B 

9B 

9B 
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65 

68 

6C 
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E4 

A9 
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E0 
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20 
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6B 

65 

69 
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80 

El 
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A2 
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<48> 
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03 

A9 

0A 

8D 

45 

03 

A9 

<37> 
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20 

44 

4F 
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20 

32 

2E 

<6E> 
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07 

9D 

42 

03 

A9 

32 

90 

<62> 
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80 

48 

03 

A9 

00 

SD 

49 

<4D> 
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20 

46 

69 

6C 

65 

9B 

43 

<E8> 

00E0:44 

03 

A9 

07 

90 

45 

03 

A9 

<99> 
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20 

56 

E4 

20 

0A 

09 

4C 
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00 

00 

00 

00 

00 

00 

00 
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90 
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03 

A9 

00 

90 
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A9 
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90 

42 
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Basic, schnell wie 
der Wind ^ mit dem Itirbo- 
Basic-XL-Interpreter 


Ist Ihnen Atari-Basic zu langsam? Oder wün¬ 
schen Sie sich zusätzliche Befehle? Dann ist 
unser Turho-Basic-Interpreter genau das richtige 
Programm für Sie. 

ugegeben, unser Interpreter ist ein wenig umfang- 
reich. Immerhin müssen insgesamt 18108 Byte erst 
einmal eingetippt sein. Eine Aufgabe, die sicher 
einige Stunden in Anspruch nimmt. Haben Sie aber dann 
den Interpreter auf Diskette vorliegen, sparen Sie sich 
zukünftig viel Zeit für die Entwicklung neuer Programme. 
Erstens stehen Ihnen sämtliche Befehle des normalen 
Atari-Basic zur Verfügung, und zweitens gewinnen Sie durch 
die neuen Befehle viel Zeit und vor allem Speicherplatz. 

Aber Turbo-Basic XL spart nicht nurZeit bei der Program¬ 
mierung, sondern auch bei der Ausführung von Program¬ 
men. Es macht seinem Namen als schnellstes derzeit 
erhältliches Basic für Atari-Computer nämlich alle Ehre. 
Wir haben unseren Interpreter dem normalen Basic und 
verschiedenen Basic-Compiiern gegenübergestellt. Turbo- 
Basic XL siegte in jeder Hinsicht. 

Damit Sie mit Turbo-Basic XL und dem dazugehörigen 
Compiler arbeiten können, benötigen Sie unbedingt einen 
Atari 800XL oder 130XE. Besitzer der älteren Computer, 
also Atari 400 und 800, können den Interpreter leider nicht 
benutzen, ln der abgedruckten Version setzt Turbo-Basic 
XL mindestens 64 KByte RAM voraus. 

Beachten Sie bitte: Turbo-Basic XL muß unbedingt mit 
AMPEL (Atari-Maschinen-Programm-Eingabe-Listing) ein¬ 
gegeben werden. Von Basic aus läßt sich Turbo-Basic XL 
nämlich nicht eingeben. Wenn Sie alle dazugehörigen 
Erklärungen befolgen, kann nichts schiefgehen. 


Besondere Hinweise 
zu Turbo-Basic XL 


Turbo-Basic XL ist als »AUTORUN.SYS«-File ausgelegt. 
Das heißt, wenn Sie den Interpreter komplett eingegeben 
haben, können Sie Ihrem File einfach den Namen »AUTO¬ 
RUN.SYS« geben. Nach dem Einschaiten des Computers 
wird dann automatisch Turbo-Basic XL geladen. Anschlie¬ 
ßend können Sie auch schon mit dem Interpreter arbeiten. 
Einzige Voraussetzung: Die Files »DOS.SYS« und 
»DüPSYS« (entweder DOS 2.0 oder 2.5) müssen sich auf 
der gleichen Diskette befinden. Mit DOS 3.0 arbeitet Turbo- 
Basic XL übrigens nicht! 

Hier noch einige Hinweise, wie Sie einen Dateinamen auf 
Diskette ändern können. 

Nehmen wir an. Sie haben Ihrem Interpreter bei der Ein¬ 
gabe mit AMPEL den Namen »TURBO« gegeben. Dieses 
File soll nun den Namen »AUTORUN.SYS« erhalten. Ent¬ 
fernen Sie also zunächst Ihre Turbo-Basic-XL-Diskette und 
schalten Sie bitte den Computer aus. Nachdem Sie eine 
formatierte Diskette, auf der sich die Files »DOS.SYS« und 
»DUP.SYS« befinden, ins Laufwerk gelegt haben, schalten 


Sie den Computer wieder ein. Anschließend geben Sie 
»DOS« ein und gelangen über die < RETURN >-Taste ins 
DOS-Menü. Nun rufen Sie auf der Turbo-Basic-XL-Diskette 
mit »E« die Funktion »Rename File« auf und drücken 

< RETURN >. Die Meldung »Give - Old Name, New 
Name« erscheint. Geben Sie beispielsweise 
»TURBO,AUTORUN.SYS« ein. Sollte Ihre Datei einen ande¬ 
ren Namen haben, müssen Sie diesen anstelle von 
»TURBO« einsetzen. Nach Betätigung der 

< RETURN >-Taste wird Ihr File umbenannt und hat dann 
den Namen »AUTORUN.SYS«. Überzeugen Sie sich, daß 
der soeben beschriebene Vorgang auch wirklich funktio¬ 
niert hat. Mit »A« für Directory und <RETURN > wird das 
neue Directory auf dem Bildschirm angezeigt. Folgende 
Programme sollten sich jetzt auf Ihrer Diskette befinden: 
DOS.SYS, DUP.SYS und AUTORUN.SYS. 

Noch eins, bevor Sie mit Turbo-Basic XL arbeiten: Sie 
sollten sich mindestens eine Sicherheitskopie Ihrer Dis¬ 
kette anlegen. Nehmen Sie sich also eine neue oder eine 
Diskette, die Sie löschen können, und formatieren Sie 
diese. Falls Sie über DOS 2.5 verfügen, können Sie sich 
das Formatieren sparen. Mit der Funktion »J« im DOS- 
Menü wird nun die Diskette kopiert. Wenn Sie ein Disketten¬ 
laufwerk besitzen, geben Sie jetzt »Dl,Dl« ein und betäti¬ 
gen daraufhin die < RETURN >-Taste. Der Kopiervorgang 
beginnt. Dabei werden Sie mehrmals aufgefordert, die 
Original-Diskette mit der Duplikat-Diskette auszutauschen. 

Sie haben jetzt also zwei Disketten vorliegen, die exakt 
die gleichen Programme enthalten. Arbeiten Sie aber bitte 
nur mit einer der Disketten und legen Sie die andere an eine 
sichere Steile. 

Nach dieser Sicherheitsmaßnahme können Sie endlich 
Turbo-Basic XL ausprobieren. Dazu muß sich nur Ihre Inter¬ 
preter-Diskette im Laufwerk befinden. Schalten Sie jetzt die 
Stromversorgung Ihres Computers aus und wieder ein. 
Wenn Sie dabei keine Taste, auch nicht die 



Ein typischer Turbo-Basic-XL-Bildschirm 


















< OPTION > -Taste, mit der normalerweise das eingebaute 
Basic abgestellt wird, betätigt haben, erscheint das Titel¬ 
bild und kurz danach die READY-Meldung. Sie befinden 
sich jetzt in Turbo-ßasic XL, Viel Spaß beim Programmie¬ 
ren! 


Strukturierte Programmierung 


ln der folgenden Beschreibung bedeuten: 
aexp=arithmetic expression (arithmetischer Ausdruck) 
sexp=string expression (Text Ausdruck (A$, 'TEXT", 
CHR$0, STR$0, HEX$0) 
lineno=Zeilennummer 

»...«=Ein oder mehrere Befehle, ln einer IF-THEN-Abfrage 
handelt es sich hierbei um den nach THEN folgenden Text. 
Sonst gibt es keine Beschränkung. »...« kann also auch 
mehrere Programmzeilen und/oder den Teil einer Pro¬ 
grammzeile umfassen. 

Es gibt im Standard-Atari-Basic nur zeilennummerorien¬ 
tierte Sprungbefehle und die »FOR...NEXT*-Schleife zur 
Konstruktion von Schleifen. In Turbo-Basic gibt es zusätz¬ 
liche, an Pascal angelehnte Strukturelemente. 

IF aexp THEN lineno 
IF aexp THEN ... 

Das normale IF...THEN Statement. 

IF aexp ... ENDIF 
IF aexp ... ELSE ... ENDIF 

Wenn die Bedingung aexp erfüllt (< >0) ist, wird der Pro¬ 
grammteil zwischen IF und ELSE, sonst der zwischen 
ELSE und ENDIF ausgeführt. ELSE kann auch entfallen. 
Als Trennzeichen nach aexp dient nicht THEN, sondern ein 
Doppelpunkt (:) oder Zeilenende (RETURN). Auch vor und 
nach ELSE und ENDIF muß ein solches Trennzeichen ste¬ 
hen. Nach ELSE darf keine Zeilennummer folgen. In Atari- 
Basic benötigt man dafür oft mehrere GOTO-Befehle. 
REPEAT ... UNTIL aexp 

Wiederholt die Anweisungen »...«, bis die Bedingung 
erfüllt ist. Hier wird die Bedingung erst am Ende der 
Schleife geprüft. Der Programmteil zwischen REPEAT und 
UNTIL wird also mindestens einmal ausgeführt. 

WHILE aexp ... WEND 

Wiederholt »...«, solange die Bedingung erfüllt ist, das 
heißt, wenn die Bedingung das erste Mal nicht erfüllt ist, 
wird die Schleife kein einziges Mal ausgeführt. 

DO ... LOOP 

Endlosschleife. Wiederholt die Anweisungen »,..«immer 
wieder von neuem. 

EXIT 

Verläßt eine Schleife, Sprung ans Schleifenende. Dieser 
Befehl ist verwendbar bei »DO ... LOOP« und »REPEAT... 
UNTIL«, »WHILE ... WEND« und auch bei »FOR ... NEXT«- 
Schleifen. Dieser Befehl stellt eine Art Notausgang aus 
Schleifen dar, bei »DO ... LOOP« sogar den einzigen, der 
in strukturierten Programmen erlaubt ist. Es wird stets an 
das Ende der Schleife gesprungen. Eine Schleife läßt sich 
auch mit »POP:GOTÖ lineno« abbrechen. Dies sollte 
jedoch nur im Notfall geschehen, da dieser Befehl nicht zur 
übersichtlichen Programmierung beiträgt. 

*F 
★ F + 

Nach diesem Befehl sind »FOR ... NEXT«-Schleifen 
abweisend. Es wird also vor dem ersten Durchlauf der 
Schleife geprüft, ob der Zähler schon den Endwert erreicht 
hat. Dazu ein Beispiel: »FOR 1=2 TO 1:? kNEXT I«. 

1. Der Anfangswert der Schleife ist 2 

2. Schleifenzähler um 1 erhöhen 

3. Vergleich mit dem Endwert (f) 

4. Verlassen der Schleife, da die Bedingung erfüllt ist. 
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Nach * F + wird zuerst die Variable 1 mit dem Anfangs¬ 
wert 2 geiaden und dann mit der Variablen I (Endwert=1) 
verglichen. Anschließend wird die Schleife bis zum »NEXT 
[«-Befehl übersprungen. Es erfolgt keine Ausgabe auf dem 
Bildschirm. Der »F+«-Befehl erspart oft eine spezielle 
Abfrageroutine. 

★ F - 

Stellt den Normalzustand wieder her. »FOR ... NEXT«- 
Schleifen werden mindestens einmal durchlaufen. Auch 
bei RUN wird automatisch ein »*F -« ausgeführt (ent¬ 
spricht dem Atari-Basic). 

PROC name 

Beginn eines Unterprogramms (Prozedur) mit dem 
Namen name. 

ENDPROC 

Prozedurende. Entspricht dem RETURN nach einem 
»GOSUB lineno«. 

EXEC name 

Ruft die Prozedur name auf, entspricht »GOSUB lineno«. 
Die normalen Befehle GOSUB und RETURN erlauben, nur 
Unterprogramme mit einer Zeilennummer aufzurufen. Hier 
ist der Aufruf mit einem leichter zu behaltenden Namen 
möglich. Außerdem belegt EXEC-PROC-ENDPROC meist 
sogar weniger Speicherplatz als GOSUB-RETURN und ist 
etwas schneller. Die Prozedurnamen werden genauso 
gespeichert wie die Variablennamen. Jeder Name belegt 8 
Byte plus ein Byte für jedes Zeichen. Jede weitere Verwen¬ 
dung benötigt dann nur ein (zwei) Byte. Die Zeilennummer 
einer GOSUB-Anweisung belegt dagegen 7 Byte. Obwohl 
Turbo-Basic XL kompatibel zu Atari-Basic ist, können statt 
128 jetzt 256 verschiedene Variablen- oder Prozedur¬ 
namen verwendet werden. Ab der 129sten Variablen kostet 
jede Verwendung zwei statt bisher nur 1 Byte Speicher¬ 
platz. 

ON aexp EXEC pname.pnam... 

Entspricht der Atari-Basic-Anweisung »ON GOSUB«. 
pnam = PROCedurname. 

# name 
GO# name 

ON aexp GO # nam,nam,nam 
TRAP #name 
RESTORE # name 

Labeldefinition, das # entspricht dem PROC. ln Turbo- 
Basic XL läßt sich der unsfrukturierte Sprungbefehl GOTO 
wenigstens dadurch lesbarer machen, daß »GOTO zeilen- 
nummer« durch »GO # name« ersetzt wird. Auch bei TRAP 
und RESTORE können Marken verwendet werden. Dabei 
wird die Kennung »#« verwendet, um dem Interpreter mit¬ 
zuteilen, daß keine Zeilennummer, sondern ein Name folgt. 
Übrigens ist »GO # name« schneller als »GOTO zeile«. Die 
Marken für GO #, TRAP # und RESTORE # werden mit # 
gekennzeichnet, die für EXEC mit PROC. Diese strikte 
Trennung dient zur Erhöhung der Gliederung und Transpa¬ 
renz von Programmen. 

POP 

POP gilt für Unterprogramme mit GOSUB und EXEC 
ebenso wie für die Schleifen »FOR ... NEXT«, »REPEAT ... 
UNTIL«, »WH1LE ... ENDWHILE« und »LOOP ... END¬ 
LOOP«. Auf dem Runtimestack belegen GOSUB, EXEC, 
REPEAT, WHILE und LOOP jeweils 4 Byte (wie GOSUB in 
Atari-Basic). »FOR ... NEXT« belegt jedoch 13 statt 12 Byte, 
da jetzt 256 verschiedene Variablen zur Verfügung stehen. 
Auf dem Stack werden jetzt aber nicht mehr die Zeilen num¬ 
mern gespeichert, ein Grund für das langsame Atari-Basic, 
sondern die Speicheradressen dieser Zeilen. Dadurch wer¬ 
den Schleifen schneller. Außerdem sinkt die Geschwindig¬ 
keit der Schleifenwiederholung nicht mit steigender Entfer¬ 
nung vom Programmanfang! Trotzdem konnte einer der 
Vorzüge von Atari-Basic bei behalten werden: Ein Pro¬ 


gramm, das beispielsweise durch einen Programmfehler 
angehalten wurde, kann man editieren und dann mit CONT 
oder GOTO fortsetzen. Dabei werden weder die Variablen 
noch der Stack gelöscht. So lassen sich auch Programme 
schreiben, die ihre DATA-Zeilen selbst generieren oder 
nicht mehr benötigte Programmteite löschen (mit POKE 
842,13, danach verhält sich der Computer so, als würde 
ständig RETURN gedrückt, bis POKE 842,12 den Normal¬ 
zustand wieder herstellt). Zum Löschen von Programmtei¬ 
len gibt es in Turbo-Basic XL den DEL-Befehl. 

Dies ist eine spezielle REM-Anweisung. Bei der Eingabe 
einer Programmzeile wird alles nach »- -« nicht beachtet. 
Bei LIST werden aber nicht 2, sondern 30 Minuszeichen 
gedruckt. Diese Anweisung belegt sogar ein Byte weniger 
Speicherplatz als ein REM ohne Text. Eine entsprechende 
REM-Zeite im normalen Basic benötigt wesentlich mehr 
Speicherplatz. 

LIST 

Beim LISTen von Programmen werden Schleifen optisch 
durch Einrücken um jeweils zwei Leerzeichen hervorgeho¬ 
ben. Programme sind so übersichtlicher und strukturierter. 
Außerdem lassen sich auf diese Art und Weise manche 
Fehler vermeiden. Bei unsauberer Programmierung (meh¬ 
rere NEXT zu einem FOR, mehrere ENDPROCszu einem 
PROC...) gerät das Listing, ebenso wie der Interpreter, 
allerdings in Unordnung. Solche Konstruktionen, die in 
Atari-Basic und vielen anderen Basic-Versionen nur 
schwer zu umschreiben sind, können in Turbo-Basic XL 
leicht durch IF-ELSE-END1F oder EXIT ersetzt werden. 
Daraus resultieren wieder leichter lesbare Programme. 
*L- 

schaltet die Tabulierung ab. Dies kann notwendig sein, um 
lange Programmzeilen zu editieren oder um Platz beim 
Speichern auf Diskette (LIST''D:X") zu sparen. Die Trenn¬ 
zeile »- -«wird nach »* L-« nur als doppeltes statt dreißigfa¬ 
ches Minus-Zeichen gelistet. 

*L 
★ L + 

schaltet die Tabulierung wieder ein (Normalzustand nach 
dem Laden des Interpreters). Übrigens gibt es jetzt auch 
ein LIST von einer Programmzeile bis zum Programmende. 
»LIST 3000,« listet ab Zeile 3000 bis zum Programmende, 
»LIST" P:" ,3000,« entsprechend auf den Drucker (das ein¬ 
zelne Komma »,« nach der Zeilennummer veranlaßt den 
Computer, automatisch 32767 für die höchstmögliche Zei¬ 
lennummer zu ergänzen). 


Neue Fehlermeldungen 


Es gibt folgende neue Fehlermeldungen: 

ERROR - 22 ?NEST 

Schachtelungsfehler, tritt auf, wenn das zu einem WHILE 
gehörende ENDWHILE nicht gefunden wird, oder das 
ENDIF zu einem IF, oderauch, nach »*F +«, das NEXT zu 
einem FOR. Beim Verlassen von Unterprogrammen (durch 
RETURN oder ENDPROC) werden Schleifen abgebro¬ 
chen, dies gilt sowohl - wie gewohnt - für die »FOR ... 
NEXT«-Schieife, wie auch für die anderen unter Turbo- 
Basic XL zur Verfügung stehenden Schleifen. 

ERROR - 16 ?GOSUB 
Zu einem GOSUB fehlt RETURN. 

ERROR - 13 ?FOR 
Zu einem NEXT fehlt FOR. 

ERROR - 23 ?WHILE 
Zu einem WEND fehlt WHILE. 

ERROR - 24 2REPEAT 
Zu einem UNTIL fehlt REPEAT. 
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ERROR - 25 7DO 
Zu einem LOOP fehlt DO. 

ERROR - 28 7EXEC 
Zu einem ENDPROC fehlt EXEC. 

ERROR - 29 7PROC 

Eine unbekannte Prozedur wurde aufgerufen. 

ERROR-30 7# 

Eine unbekannte Marke wurde verwendet. 

ERROR - 27 XPROC 

(Executing PROC). Diese Fehlermeldung tritt auf, wenn 
eine PROC-Anweisung ausgeführt wird. Prozeduren dür¬ 
fen nur von EXEC aufgerufen werden. 

ERROR - 26 7EXIT 
EX1T ohne Schleife. 

ERROR - 15 7DEL 

Das GOSUB zu einem RETURN, NEXT zu einem FOR, 

REPEAT zu einem UNTII_wurde gelöscht. In Atari- und 

in Turbo-Basic XL fassen sich Programme editieren, ohne 
Variablenwerte oder den Stapel zu zerstören. Wenn dann 
bei Rückkehr aus einem Unterprogramm (Schleife) die ent¬ 
sprechende Zeile gelöscht oder verändert wurde, kann die¬ 
ser Fehler passieren. Dies tritt auch auf, wenn ein in ein 
Programm eingebautes DEL sich selbst löscht. Alle Fehler¬ 
nummern, die Atari-Basic ohne irgendwelche Texte aus¬ 
gibt, werden in Turbo-BasicXL grundsätzlich mit einem kur¬ 
zen Text ergänzt (beispielsweise »138 TIMEOUT«, »29 
7PROC« etc.). Ausführlichere Erläuterungen können dem 
Atari-Basic Referenz Manual oder der DOS-Anieitung ent¬ 
nommen werden. Längere Texte würden, bei den insge¬ 
samt 60 zur Verfügung stehenden Fehlern, den Platzbedarf 
des Interpreters noch wesentlich erhöhen. 

DEL von,bis 

Löscht die Programmzeilen von - bis (jeweils ein¬ 
schließlich). 

RENUM alt,neu,incr 

Numeriert alle Programmzeilen ab Zeile alt um. Die 
neuen Zeilennummern beginnen bei neu und werden 
jeweils um incr erhöht. Alle Zeilennummern vor alt bleiben 
unverändert. Dieser Befehl ändert auch die Zeilennum- 
mern nach GOTO, GOSUB, TRAP, RESTORE, LIST, DEL, 
ON-GOTO und ON-GOSUB. Bei Verwendung Undefinierter 
Zeilennummern wird die entsprechende negative Zahl ein¬ 
gesetzt (beispielsweise GOTO-100). Bei berechneten 
Sprüngen (GOTO VAR, GOSUB 100+10*A, RESTORE 
A+10+1000) versagt RENUM. Wenn hinter dem Befehl 
eine Zahl folgt »GOTO 1000+A+10«, wird die Zahl wie bei 
einem normalen Befehl »GOT01000« behandelt. Der nach¬ 
folgende Programmteil der Zeile bleibt jedoch unverändert. 
Wenn keine Zahl, sondern ein Variablenname oder eine 
Klammerfolgt, wird der Befehl überhaupt nicht verändert. 

DUMP 

DUMP filespec 

Dieser Befehl erzeugt eine Liste der verwendeten Varia¬ 
blen. Wie bei LIST kann die Ausgabe auch auf einem 
Drucker erfolgen (DUMP "P:"). 

Ein Beispiel: 


A = 100 
B( 10,1 
C(0,0 


D( 10,10 
E$ 10,20 
F$ 0,0 
G$ 0,10 
H PROC 100 
I # 120 
J? 


numerische Variable 
Array, DIM B(9) oder DIM B(9,0) 
undimensioniertes Array. Bei Arrays werden 
die beiden möglichen Dimensionen stets 
um 1 erhöht angezeigt. 

DIM D(9,9) 

String, LEN=10, DIM E$(20) 
nicht dimensionierter String 
DIM G$(10), LEN(G$)=0 
PROC H in Zeile 100 
Marke 1 in Zeile 120 
Undefinierte Marke oder PROC 


Die Ausgabe der Variablen/Marken erfolgt in der Reihen¬ 
folge, wie sie in der Variablentabelle gespeichert sind. 

TRACE 
TRACE + 

Schaltet den TRACE-Modus ein. Das heißt, die Nummer 
jeder ausgeführten Zeile wird in eckigen Klammern auf 
dem Bildschirm ausgedruckt. 

TRACE- 

Hebt TRACE wieder auf. Der TRACE-Modus wird außer¬ 
dem aufgehoben, sobald eine Fehlermeldung auftritt. Die 
Zeilennummern eines PROC oder # werden bei Aufruf mit 
EXEC oder GO# nicht ausgegeben. 

*B 
*B + 

Nach diesem Befehl wird das Drücken der < BREAK >- 
Taste wie jeder andere Fehler behandelt. Eine Program¬ 
munterbrechung läßt sich mit TRAP abfangen und so vor 
einer versehentlichen Unterbrechung schützen. 

*B- 

Hebt den oben erwähnten Modus wieder auf. Bei RUN 
wird »*B -« automatisch ausgeführt. 


Befehle 


Erläuterung: 

< = > steht für: entspricht im normalen Basic 
DPOKE adr.word 

Doppel-Byte-POKE <=> POKE adr,word-256*INT(wort/ 
256):POKE adr+1,INT(wort/256) 

MOVE sou rce,dest,count 

Blocktransfer < = > FOR 1=0 TO COUNT-l:POKE dest+ 
l,PEEK(source+l):NEXT I 

Mit »MOVE 57344,NEUCHARSET,1024« läßt sich bei¬ 
spielsweise der Zeichensatz kopieren. 

-MOVE source,dest,count 

Blocktransfer, zuerst wird das letzte Byte verschoben. 
Dies ermöglicht, einen Speicherbereich zu einer höheren 
Adresse zu verschieben, ohne daß es bei Überlappungen 
(wenn source+count >dest) zu Zerstörungen kommt. 

< = > FOR l=COUNT-1 TO 0 STEP -1: POKE dest+1, PEEK 
(source+1):NEXT I. MOVE kann auch benutzt werden, um 
einen Speicherbereich zu füllen. Beispiel: »POKE 
DPEEK(88),128:MOVE DPEEK(88),DPEEK(88)+1,959«. 
Dies schreibt den Textbildschirm mit dem Bildschirmcode 
für das inverse Leerzeichen voll. Obwohl hier viele, eigent¬ 
lich unnötige Ladevorgänge stattfinden, ist dies viel schnel¬ 
ler als eine Basic-Schleife. 

BPUT #n,adr,len 

Blockschreiben < = > FOR l=0TO!en-1:PUT #n,PEEK 
(adr+l):NEXT I 
BGET #n,adr,ien 

Blocklesen <=> FOR 1=0 TO len-1:GET #n,A:POKE 
adr+l,A:NEXT I 

Mit dieser» Befehlen kann man Speicherbereiche mit 
maximaler Geschwindigkeit speichern und laden. Beispiel: 
OPEN #1,8,0,"D:BILD.P!C":BPUT #1,DPEEK(88),7680: 
CLOSE #1 

OPEN #1,4,0," D:B1LD.PIC" :BGET #1,DPEEK(88),7680: 
CLOSE #1 

Speichern oder Laden eines Grafik-8-(oder 9,10,11,15)- 
Bildes auf Diskette. Achtung; Die Zahl 7680 muß je nach 
Grafikmodus geändert werden (sonst werden nicht mehr 
zum Bildspeicher gehörende Speicherbereiche mit¬ 
gelesen oder -geschrieben) 

%PUT 

Mit diesem Befehl lassen sich Zahlen schneller und kom¬ 
pakter auf Diskette oder in einer RAM-Disk speichern. 
Dabei werden immer sechs Byte gepeichert. 
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%GET 

Zum Lesen von Zahlen, die mit %PUT auf ein Speicher¬ 
medium gespeichert wurden. Ein Beispiel für die Anwen¬ 
dung von %PUT und %GET finden Sie auf Seite 70. 

FILLTO x,y 

Kurzschreibweise, schneller und übersichtlicher als: 
»POSITION x,y:XIO 1&#6,0,0/S:*TCOLOR n« 

Wählen der Farbe für FILLTO. In Standard-Basic heißt 
dieser Befehl »POKE 765,n«. 

CLS 
CLS #6 

Bildschirmlöschen. CLS <=> A=PEEK(766):POKE 
766,0:POS1TION 0,0:? (#6;)CHR$(125);:POKE 766,A 

PUTn 

< = > ?CHR$(n); beispielsweise »PUT 253« für»? CHR$ 
(253);«. Bei PUT, GET, INPUT... ist auch die Angabe »#0« 
möglich. Die Benutzung von »IOCB 0« (mit »CLOSE« oder 
»OPEN #0«) verhindert allerdings das ordnungsgemäße 
Arbeiten des Bildschirm-Editors, gegebenenfalls 
< SYSTEM-RESET > drücken. Fehlt bei PUT die 
# -Angabe, so wird automatisch »IOCB #0« benutzt. 

GET KEY 

< = > OPEN # 7,4,0, "K:":GET #7, KEY:CLOSE #7. 
Wartet auf Tastendruck und weist der Variablen KEY den 
ATASCIl-Wert der gedrückten Taste zu (der Variablenname 
ist frei wählbar). 

DIM 

Beim DIM-Befehl werden Arrays und Strings automa¬ 
tisch gelöscht, also auf 0 gesetzt. DIM A(100) < = > DIM 
A(100):FOR 1=0 TO 100:A(I)=0:NEXT I 
INPUT "text" ,var,var... 

IN PUT "text";var,var... 

INPUT ähnelt jetzt sehr stark dem entsprechenden 
INPUT-Befehl unter Microsoft-Basic. Ein Text nach IN PUT 
erspart die sonst nötigen PRINT-Befehle. Folgt nach dem 
Text ein Semikolon statt eines Kommas, so wird zusätzlich 
ein ? ausgegeben. Mit »INPUT " ";A« erreicht man ein Input 
ohne das manchmal störende »?«. 

TEXT x,y,sexp 
TEXT x,y,exp 

Schreibt einen Text in ein Grafik-Bild. »x,y« stellt die Posi¬ 
tion der oberen linken Ecke des ersten Zeichens des String- 
Ausdrucks (wird in Bildpunkten gezählt) dar. Beispiel: 
»GRAPHICS 8:TEXT 50,90, "Turbo-Basic" TEXT 
70,95,1000«. Im Gegensatz zum normalen PRINT-Befehl 
darf nach TEXT nur ein Ausdruck erfolgen (keine Liste mit 
Komma oder Semikolon). Außerdem werden Texte am Zei¬ 
lenende abgebrochen, es gibt auch kein Scrolling. 
CIRCLE x0,y0,r 
CIRCLE x0,y0,xr,yr 

Zeichnet einen Kreis um den Punkt x0,y0 mit dem Radius 
r. Bei Angabe zweier (unterschiedlicher) Radien für die 
x- und y-Richtung entstehen Ellipsen. 

PAINT x,y 

Füllt eine geschlossene Figur, beispielsweise einen 
Kreis, mit der mit COLOR gewählten Farbe. Dieser Befehl 
kann fast jede beliebige Figur mit einer bestimmten Farbe 
füllen. Da hierbei eine für den 6502 angepaßte, rekursive 
Funktion benutzt wird, ist der Komplexität der auszufüllen¬ 
den Figur durch den freien Speicherplatz eine Grenze 
gesetzt. Im Extremfall würde ein Arbeitsbereich von etwa 
90 KByte RAM benötigt. Auch einfache und kleinere Figu¬ 
ren belegen vorübergehend einige hundert Byte. Sollte der 
Speicher überlaufen (FRE(O)zu klein), so gibt es die Fehler¬ 
meldung »ERROR - 2 MEM«. Die PAINT- und die TEXT- 
Routine benutzen eigene, schnelle Plot-Routinen, da hier¬ 
bei viele nebeneinander liegende Punkte relativ einfach 
berechnet werden können. Hiervon machen die Routinen 
im Atari-Betriebssystem leider keinen Gebrauch. 


TIME$= siehe unten 
PAUSE n 

Unterbricht die Programmausführung für n/50-Sekun- 
den. PAUSE ersetzt das ungenaue und speicherplatzfres¬ 
sende Timing mit leeren FOR-NEXT-Schieifen. In Atari- 
Basic wird oft die Potenzierung (A=r 1) für eine kleine Ver¬ 
zögerung benutzt. Da Turbo-Basic XL bei der Potenzierung 
besonders schnell ist, sollte dafür beispielsweise »PAUSE 
9« benutzt werden. 

DSOUND voice,freq,dis,vol 

Ähnlich dem normalen SOUND-Befehl. Der Atari- 
Computer kann zwei normale Stimmen zu einer zusam¬ 
menfassen.. Die Frequenzauflösung beträgt dann 16 Bit 
(0..65535) statt 8 Bit (0..255). Die resultierende Frequenz 
berechnet sich (in Hertz) zu: 1789790/(2*■ freq+14) statt 
sonst 63921/(2★freq-f2). Diese Werte stammen aus einer 
amerikanischen Veröffentlichung und unterscheiden sich 
eventuell etwas von den Werten bei den deutschen Atari- 
Versionen, da sie von der Videofrequenz abgeleitet sind, 
die in den USA einen anderen Wert besitzt (siehe auch 
Seite 124). 

DSOUND 

Kurzform für: FOR 1=0 TO 3:SOUND l,0,0,0:NEXT I 

CLOSE 

Kurzform für: FOR 1=1 TO 7:CLOSE #I:NEXT I 


Funktionen 


DPEEK(adr) 

Doppel-Byte-PEEK <=> PEEK(adr)+256* PEEK 
(adr+1) 

INKEYS 

Spezialvariable. Wenn eine Taste gedrückt wird, enthält 
INKEY$ das entsprechende Zeichen. Wenn nicht, enthält 
sie einen Leerstring (" '). So läßt sich ein Tastendruck ver¬ 
arbeiten, ohne den Programmablauf zu unterbrechen. 

INSTR(A$,B$) 

INSTR(AS.BS.i) 

Sucht einen String B$ in einem (längeren) String A$. 
Wenn gefunden, wird die Position von B$ in A$ zurückgelie¬ 
fert, sonst eine Null, »i« stellt den Index (Position) dar, ab 
dem die Suche beginnen soll. 

UINSTR(A$,B$) 

UINSTR(A$,B$,i) 

Ähnlich INSTR. Die Bits 7 und 5 der einzelnen Zeichen 
werden nicht beachtet. Bei der Suche nach »MODEM« läßt 
sich so auch »Modem«, »MoDeM« oder der entsprechende 
inverse Text finden (UINSTR steht für UppercaselNSTR). 
Als Nebeneffekt werden bei der Suche nach Zahlen oder 
Satzzeichen auch die Spezial-Zeichen gefunden 
("!" =CTRL-A, "0" =CTRL-P etc.). 

ERR 

Kurzform für »PEEK(195)« zur Ermittlung des Feh¬ 
lercodes. 

ERL 

Kurzform für »PEEK(186)+256*PEEK(187)« oder 
»DPEEK (186)« zur Ermittlung der Zeile, in der ein Fehler 
aufgetreten ist. ERR und ERL sollten in TRAP-Routinen 
verwendet werden. 

TIME 

Spezialvariable, enthält die Zeit (vom internen Timer 
RTCLOCK des Atari-Computers, ausschlaggebend sind 
die Speicherzellen 18 bis 20) in 1/50-Sekunden. 

TIME$ 

Spezialvariable, enthält die Zeit als sechsstelligen String 
im Format hhmmss (hh=Stunde 00 bis 23, mm=Minute 00 
bis 59, ss=Sekunde 00 bis 59). 















TIME$= 

Zum Stellen der Uhr. »TIME$= "151520"« stellt die Uhr 
auf 15 Uhr, 15 Minuten und 20 Sekunden. Die Variable 
TIME läßt sich nicht direkt verändern. Statt dessen wird ent¬ 
weder »TI ME$=« verwendet oder entsprechend in die Spei¬ 
cherstellen 18 bis 20 gePOKEt. Die Uhr geht nicht ganz 
genau, da die Frequenz, mit der im Atari die Fernsehbilder 
erzeugt werden, nicht genau 50 Hz beträgt. TIMES wird von 
dieser Frequenz abgeleitet. 

FRAC(exp) 

Diese Funktion ermittelt den Nachkommaanteil einer 
Zahl. »FRAC(exp)« ist nicht immer gleich »exp-INT(exp)«, 
da INT die nächstkleinere Zahl ermittelt. So ergibt »? 
INT{-0.3)« -1, »? FRAC(-0.3)« ergibt -0.3. 

TRUNCfexp) 

Diese Funktion ermittelt den ganzzahligen Anteil einer 
Zahl. Dies ist die zu FRAG komplementäre Funktion. »? 
TRUNC(-0.3)« ergibt 0. 

BND 

RND (irgendwas) kann in Turbo-Basic XL abgekürzt wer¬ 
den, i.ndem man die Klammern wegläßt. Es wird also RND 
statt RND(0) verwendet (speicherplatzsparend). 

RAND(n) 

Dies ist die Kurzschreibweise für »TRUNC(RND(0)★ n)« 
und erzeugt eine ganze Zufallszahi zwischen einschließ¬ 
lich 0 und (ausschließlich) n. 

HEX$(exp) 

Ähnlich STR$. HEX$ wandelt die Integerzahl exp 
(0< = exp< =65535) in einen sedezimalen (hexadezima¬ 
len) String um. Wenn exp kleiner als 256 ist, ergibt dies 
einen zweistelligen String, sonst einen vierstelligen. 

DEC(sexp) 

Ähnlich VAL, Umkehrung zu HEX$. Der String sexp wird 
in eine dezimale Integerzahl gewandelt. Wenn sexp mehr 
als vier gültige sedezimale Ziffern enthält, so gelten nur die 
letzten vier. 

$aaaa 

Sedezimalzahl im Programm. Beispiel: 

FOR !=$0600 TO $067F:READ A:POKE l,A:NEXT I 
statt: 

FOR 1=1536 TO 1663:READ A:POKE l,A:.NEXT I 
& Binäres AND 
! Binäres OR 
EXOR Binäres exclusiv OR 

Diese drei Operatoren arbeiten mit 16-Bit-lntegern. Also 
mit Zahlen zwischen 0 und 65535 und nicht mit Boolschen 
Größen (1 oder 0) wie die Operatoren AND, OR und NOT. 

DIV 

Division ohne Rest: a DIV b < = > TRUNC(a/b) 

MOD 

Bestimmung des Divisionsrestes (Modulo): a MOD b 
< = > a-b*TRUNC(a/b) 

%0 %1 %2 %3 

Die Zahlen 0 bis 3 sind als Konstanten definiert. Die Ver¬ 
wendung einer Zahl (auch $aaaa) im Programm kostet 
jedesmal 7 Byte, die Verwendung einer Variablen, unab¬ 
hängig von der Länge des Namens, jedoch nur 1 oder 2 
Byte. Auch die Verwendung von %0 bis %3 belegt eben¬ 
falls jeweils 1 Byte, aber keinen Eintrag in der auf 256 Varia¬ 
blen begrenzten Variablentabelle. 

In Strings oder in zwischen Anführungszeichen stehen¬ 
dem Text ist es jetzt möglich, »"« (entspricht CHR$(34)) 
durch doppelte Anführungszeichen ("")einzufügen. Bei¬ 
spiel: »?"TEST" "TEXT"« erzeugt den Ausdruck: »TEST- 
"TEXT«. In Atari-Basic muß man dafür schreiben: »? 
"TEST CH R$(34); 

'TEXT"«. Bei Zuweisungen (A$= TEST" "TEXT") ist das 
(in Atari-Basic) noch etwas umständlicher. 

Turbo-Basic XL wandelt bei der Eingabe von Programm¬ 


zeilen automatisch kleine in große und inverse in normale 
Buchstaben um. Dies gilt natürlich nicht zwischen Anfüh¬ 
rungszeichen (") sowie nach REM oder DATA-Befehlen. 
Somit lassen sich Programme auch mit Kleinbuchstaben 
eingeben, ohne ständig zwischen Groß- und Kleinbuchsta¬ 
ben (mit der < GAPS>-Taste) hin-und herzuschalten oder 
ständig <SHIFT> drücken zu müssen. 

In Variablen- und Prozedurnamen ist außer den Buchsta¬ 
ben und Ziffern auch das Unterstreichungszeichen »_« 

(<SH1FT ->) zugelassen. So sind endlich Namen wie 
MAX_LEN oder PROC SORT_KUNDEN erlaubt. 


Diskettenbefehle 


DIR 

DIR " Dl: ★. ★ " 

Ausgabe des Inhaltsverzeichnisses einer Diskette auf 
dem Bildschirm. »DIR"Dl:*.* "«listet alle Files von Dis¬ 
kette 1, »D2: A ★. ★ « alle Files von Diskette 2, deren Name 
mit A beginnt. »Dl: ★. ★ « kann entfallen, dann wird automa¬ 
tisch »D:*.-*« eingesetzt (ähniich wie im DOS-Menü mit 
»A RETURN RETURN«). Bei diesem Befehl sind String¬ 
variablen wie auch bei den folgenden Befehlen zulässig. 
RENAME "D:OLD,NEW" 

Benennt das File OLD in NEW um. Entspricht: »XIO 
32, #7,0,0," D2:OLD,NEW"« oder der DOS-Menü Auswahl 
E. 

DELETE "D:F1LE" 

Löscht ein File (entspricht »XIO 33« oder der DOS-Menü 
Auswahl D). 

LOCK "D:FILE" 

Schützt ein File gegen Überschreiben (entspricht »XIO 
35« oder der DOS-Menü Auswahl F). 

UNLOCK "D:FILE" 

Hebt den Schreibschutz wieder auf (entspricht »XIO 36« 
oder der DOS-Menü Auswahl G). 

BLOAD "D:FILE.OBJ" 

Lädt ein binäres File (entspricht der DOS-Menü Auswahl 
L mit »/N« nach dem Filenamen). 

BRUN "D:FILE.OBJ" 

Lädt ein binäres File und startet es, wenn eine RUN- 
Adresse im File enthalten ist (entspricht der DOS-Menü 
Auswahl L, ohne angehängtes »/N«), 

Damit sind die zusätzlichen Befehle und Funktionen von 
Turbo-Basic XL erklärt. Selbstverständlich stehen darüber 
hinaus noch alle anderen Befehle, die man vom normalen 
Basic her kennt, zur Verfügung. Mit Turbo-Basic XL wird die 
Programmierung auf dem Atari 800XL/130XE zur wahren 
Freude. Befehle, die man sich schon lange gewünscht hat, 
stehen jetzt endlich zur Verfügung. 

Autostart 

Mit Turbo-Basic XL ist es möglich, nach dem Einschalten 
des Computers ein Basic-Programm automatisch zu laden 
und zu starten. Dazu benennen Sie Ihr Basic-Programm 
einfach in AUTORUN.BAS um. Vergessen Sie nicht: Das 
eigentliche Turbo-Basic muß dann mit dem Namen AUTO- 
RUN.SYS auf Diskette vorliegen. 

(Frank Ostrowski/Werner Breuer/hf) 


Steckbrief 

Programm: 

Turbo-Basic XL 

Sprache: 

Assembler 

Eingabehilfe: 

AMPEL 

Datenträger: 

Diskette, Kassette 
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